REVI.A INDF.INDIrNTE PAPA USUAItlO$ DE OltOeNADOIt Ame 

160 Ptas. 

Canarias 165 pts. 

Ao ll N.°48 

Y RECURSIO 
DOS BUENAS RAZONE 
PARA UTILIZAR LISP 

DALE CA RA CTER 
A TUS PROGRAN1AS.  
GRAFICOS , 
DEFINIDOS POR EL , 
USUARIO DESDE 
CODIGO 
NIA(UINA 

Todo Io p. otenda 
y elegancia de los 
 Funcines de libreria 

HOB/ft' PP, z'3S 



Tel.: (91) 274 53 80 Aparcamiento gratuito en Felipe II 
I Ofertas en software: 2 programas al precio de 1 y adem6s regalo fin de curso una calculadora completamente gratis, jiAsombroso!! 
Verdad? 

BAT MA N 2.300 
ROCK'N LUCHA 2.300 
YIER AR KUNG FU 2.300 
THE WAY OF THE TIGER 2.300 
WEST BANK 2.100 
CAMELOT WARRIORS 2.300 
RAMBO 2.300 
WORLD CUP (DISCO) 3.300 
MILLION II (DISCO) 3.300 

:tas. KUNG-FU MASTER 2.300 pias. 
tas. SABOTEUR 2.300 ptas. 
tas. PING PONG 2.300 plos. 
tas. MILLION II OOOO ptas. 
tas. OLE TORO 2.300 ptas. 
)tas. TURBO ESPRIT 2.100 ptas. 
tas. SABRE WULF 1.650 ptas. 
tas. BATALLA DE LOS PLANETAS 2.100 ptas. 
tas. SABOTEUR-COMBAT LINX DISCO 3.300 ptas. 

RAMtO-MATCH DAY (DISCO) 3.300 pros. 

SOFTWARE DE REGALO (OFERTA 2xl) 
DECATHLON BEACH HEAD SOUTHERN BELLE 
DRAGONTORC 

LAPIZ OPTICO 
3.295 PTAS. 
CASSETTE ESPECIAL ORDENADOR 
5.295 PTAS. 

1 
SlNTETIZADOR DE VOZ EN , 
CASTELLANO 
I 
7.650 PTAS. 
AMPLIACION DE MEMORIA ANTA 64 K.3 
12.500 PTAS. 

! IMPRESORAS 

20% DE DESCUENTO $OBRE P.V.P. 

TAPA DE METACRILATO 464 
CABLE CENTRONICS 
CABLE SEGUNDA UNIDAD D. 
CABLE SEPARADORES 6128 
INTERFACE RS232 
CINTA VIRGEN C15 

895 
3.175 
1.790 
1.975 
9.265 
69 

CABLE AUDIO 
CABLE ADAPTADOR 2 JOYSTICK 
CABLE SEPARADORES 464 
CABLE SEPARADOR 8256 
CABLE RS232 
DISKEI-rES 3" 

 PREClOS EX.CEPCIONALES PARA TU AMSTRAD 
CPC 464, CPC-6128, PCW-8256 

795 
2.390 
1.390 
2.900 
2.500 
990 

L 

iiLLEGARON LAS REBAJAS DE VERANO A MICRO ! !! 

OFERTAS IN JOYSTICKS 
QUICK SHOT I 1.395 
QUICK SHOT II 1.695 
QUICK SHOT V 1.695 

PEDIDOS CONTRA REEMBOLSO SIN NINGUN GASTO DE ENVIO TEL. (91) 274 53 80 

O ESCRIBIENDO A: MICRO-1. Cl DUQUE DE SESTO, 50. 28009 MADRID. 
Tiendas y distribuidores grandes descuentos. 
Dirigirse a Diproimsa. CI Galatea, 25. Tel. (91) 742 20 19 6 742 79 68 



Tarjeta de suscripci6n ahorro 

[] Deseo suscribirme a la revista Microhobby Amstrad, durante un abe (50 n0meros) par s61o 
6.900 pres., Io que me supone un ahorro de i.100 pres. 

[] Deseo suscribirme a las cintas de Microhobby Amstrad (12 cintas), al precio de 8.175 ptas., 
Io que me supone un ahorro de 900 ptas. La primera cinta que deseo recibir es la 
Fecho de 
NOMBRE nacimienlo 

APELLIDOS 

DOMICILIO 

CIUDAD , PROVINCIA 
C. POSTAL TELEFONO PROFESION 

Marco con uno (x) en el cosillero correspondienle Io farina de page 
que m6s conviene. 
[-1 Torjelo de crlHo n. ° 
E] Vsa FI American Express O/vsler Charge 
Fecha de coducidod de Io lorelo 
O Tal6n boncario a hombre de HOBBY PRESS, S.A. 
E] Giro Poslal o nombre de HOBBY PRESS, S. k., N. ° del giro 
n Centre reembolso del primer envio. [Supone 75 pres. de gostos de envio). 

I Si Io prefiem, tambin pede / 
suscribirse par telono. 
734 65 00 

Fecho y firma 

:ose I. omez-errrurlon 
Jefe de Producci6n 
Caries Peropadre 

Marketing 
Mm to Garcia 
Jefe de Publicidad 
Concha Guti6rrez 
Publicidad Barcelona 
Jos6 Gal6n Cort6s 
Tel: (93) 303 10 22/313 71 62 

Secretaria de Direcci6n 
Morisa Cogorro 
Suscripciones 
M. e Rosa Gonz61ez 
M. a del Mar Colzada 
Redacci6n, Administraci6n 
y Publicidad 
Ctra. de Ir0n km 12,400 
(Fuencarrol) 28049 Madrid 
TelCfonos: Suscrip.: 734 65 00 
Redacci6n: 734 70 12 
Oto. Clrculaci6n 
Poulino Blanco 
Dlstribuci6n 
Coedis, S. A. Valencia, 245 
Barcelona 

Imprime 
ROTEDIC, S. A. Crta. de Ir0n. 
Kin. 12,450 (MADRID) 
Fotocomposlci6n 
Novocomp, S.A. 
Nicol6s Morales, 38-40 
Fotomec6nica 
GROF 
Ezequiel Solana, 16 
Dep6sito Legal: 
M-28468-1985 

Derechos exclusives 
de la revista 
COMPUTING with 
the AMSTRAD 

Representante pare Argenlina Chile, 
• Uruguay y Paraguay, Cia. 
Americana de Edlcianes, S.R.L. Sud 
America 1.532. Tel.: 21 24 64. 1209 
BUENOS AIRES (Argentina). 

M. H. AMSTRAD no 'e hace 
necesariamente solidaria de los 
opiniones verlldas par sus 
colobaradores en los arffculos 
firmodos. Reservados lodes los 
derechos. 

Inteligencia 
artificial 

Pace a pace, semana tras semana, estamos 
avanzando en /a programaci6n en LISP, pronto muy 
pronto comenzaremos a desarrolfar nuestros propios 
programas, pero par el momenta aJn heroes de 
aprender afgunas cases. Esta semana fi/amos nuestre 
atencidn en los procesos recursivos, pieza clave de fa 
progrmacidn rods avanzada. 

has dedicamos a /a f/ska, un gran 
adentra en la din6mica de/ 
nprensi6n de/movimiento; rode 
eleganda y bonitos grdficos, 
tard. 

Mr. Joystick 
Cuatro pdginas pare un gran /uego, Winter 
Gamens, compite entre hielo y nieve en las disfintos 
pruebas deportivas, patina/e, exquL., al final la 
g/aria de la medo/la de ore puede set tuya. Pete, 
atenci6n, no ser6 fdcil. 

Programad6n • 
Programar no es dif/cil, eso redes/o sabemos, 
ahora bien, hacerlo de farina estructurada es ya 
otto canter. La falta de planificacidn y un excesivo 
usa del GOTO son en BASle la principal razdn de 
programas dih'cilmente legibles y par tanto de cad 
imposible correcci6n. Sin embargo, tras un GOTO 
siempre hay una alternative, nosotros te proponemos 
algunas. Lee y decide. 

COHOsYAMSTRAD 3 
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Ofertas en software: 2 progrc 
Verdad. I 

BAT MA N 
ROCK'N LUCHA 
YIER AR KUNG FU 
THE WAY OF THE TIGER __ 
WEST BANK 
CAMELOT WARRIORS __ 
RAMBO 
WORLD CUP (DISCO)_ 
MILLION II (DISCO)_ 

I LAPIZ OPTICO 
I 3.295 PTAS. 
I 
CASSEE ESPECIAL ORDENADOR 
5.295 PTAS. 

,, 
,, 
,, 
,, 
| 
I 
,, 

LUGAR 
DESTINADO 
PAPA 
EL SELLO 

Apartado de Correos N. ° 232 
ALCOBENDAS 
(Madrid) 

blNII'IILAUUK UI: YU/. I:N 
CASTELLANO 
7.650 PTAS. 
AMPLIACION DE MEMORIA ANTA 64 K.3 
12.500 PTAS. 

IMPRESORAS 
20o/0 DE DESCUENTO SOBRE P.V.P. 
INTERFACE RS232 9.265 I I CABLE RS232 2.500 
CINTA VIRGEN C15 69  DISKEI-IES 3" 990 
PRECIOS ExcEPcioNALES PARA TU AMSTRAD 

CP¢-464, CPC-6128, PCW-8256 

IILLEGARON LAS REBAJAS DE VERANO A MICRO !!! 

OFERTAS EN JOYSTICKS 
QUICK SHOT I 1.395 
QUICK SHOT II 1.695 
QUICK SHOT V 1.695 

PEDIDOS CONTRA REEMBOLSO SIN NINGUN GASTO DE ENVIO TEL. (91) 274 53 80 
0 ESCRIBIENDO A: MICRO-1. CI DUQUE DE SESTO, 50. 28009 MADRID. 

Tiendas y distribuidores grandes descuentos. 
Dirigirse a Diproimsa. CI Galatea, 25. Tel. (91) 742 20 19 6 742 79 68 
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Marta Gorcio 
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Publicidad Barcelona 
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Fotomec6nica 
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Derechos exclusivos 
de la revista 
COMPUTING with 
the AMSTRAD 

Represenlante poro Argentina, Chile, 
• Uruguay y Paraguay, Cia. 
Americana de Ediciones, S.R.L. Sud 
America 1.532. Tel.: 21 24 64. 1209 
BUENOS AIRES (Agentino). 

M. H. AMSTRAD no se hace 
necesorlomente solidoro de los 
opiniones vertdos par sus 
coloborodores en los orticulos 
firmados. Reservados todos los 
derechos. 

Aria II • Ndmero 48 • 29 de Julia al 4 de Agosto 
160 ptas. (incluido I. V.A.) 
Canarias, 155 ptas. + 10 ptas. sobretasa a#rea. 
Ceuta y Melilla, 155 ptas. 

Primeros pasos 

uchas y variadas son bs virtudes que hemos de 
agradecerle a nuestro m W querido y conocido 
BASle, pero sin duda, la facilidad del tratamiento 
de cadenas adn no de/a de sorprendernos. Vo/vemos 
esta semana sabre el tema estudiando /a sentencia 
MID, curiosa par su ambiva/encia, ya que puede 
utilizarse coma funci6n o coma arden, segdn el 
conlexto. 

Inteligencia 
artificial 

Poco a poco, semana tras semana, estamos 
avanzando en /a programaddn en LISP, pronto muy 
pronto comenzaremos a desarrol/ar nuestros propios 
programas, pero par el momenta adn hemos de 
aprender algunas cosas. Esta semana fi/amos nuestra 
atenciOn en los procesos recursivos, pieza clave de/a 
progrmaciSn rods avanzada. 

En esta semana has dedicamos a b fiska, un gran 
programa que nos adentra en la dindmica de/ 
mundo yen la comprensiOn de/movimiento; todo 
ella realizado con elegancia y bonitos grdficos, 
seguro que as gustard. 

Mr. Joystick " " 

Cuatro pdginas para un gran juego, Winter 
Gamens, compite entre hielo y nieve en /as distintas 
pruebas deportivas, patinaje, exquL., a/ final la 
gloria de la medal/a de oro puede ser tuya. Pero, 
atencidn, no serd f6ci/. 

L 

12 

Programaci6n • 
Programar no es d/tic/l, eso todos Io sabemos, 
ahora bien, hacer/o de farina estructurada es ya 
otro cantar. La falta de planificaciOn y un excesivo 
usa del (YOTO son en BASIC la principal razOn de 
programas dif[cilmente legibles y par tanto de casi 
imposible correcciOn. Sin embargo, tras un GOTO 
siempre hay una alternativa, nosotros te proponemos 
algunas. Lee y decide. 

/ctoHoYAMSTRAD 3 



Ya estzi 
a la venta 
eln,2 

+/ 

HOBBY sale este mes a la calle con un mont6n 
de temas ins61itos que seguro te apasionarbn. 
LSabias, pot ejemplo, que puedes ser un campe6n 
de baloncesto aunque midas menos de 1,80? LO que 
es posible domar una planta carnivora y medir sus 
estimulos? HOBBY te enseha tambin cosas tan dispa- 
res como los pasos a seguir para irte a un pueblo aban- 
donado o el arte de volar cometas. Y, demos, todos los 
meses regalamos una cadena de mbsica. 
Ten un HOBBY todos los meses. 
iYa est en tu kiosco el n. ° 2! 



NORTHERN 
COMPUTERS 

David Park, mano 
derecha de Clive Sinclair durante do- 
ce aos, ha sido nombrado director 
general de NORTHERN COMPU- 
TERS. Ser6 el responsable de las ven- 
tas y distribuci6n de la compaia 
AMSTRAD NETWORK and HARD 
DISK SYSTEM PRODUCTS. 
El seor Park trabaj6 en SINCLAIR 
RADIONICS en 1969 como el primer 
vendedor de Clive Sinclair. 
Mientras trabaj6 con Sinclair rue 
escalando posiciones tales como di- 
rector de ventas para Inglaterra, di- 
rector de exportaci6n y director de 
marketing. 
Introdujo los ordenadores Sinclair 
en paises tales como Alemania, Es- 
papa, China, India, Iraq, Arabia 
Saudita y la URSS. 
Recientemente David Park dimiti6 
de SINCLAIR PRODUCTS a princi- 
pios de abril. 
NORTHERN COMPUTERS se en- 
cuentra enclavada en York y expor- 
lard a Europa --tanto Oriental como 
Occidental-- Australia y Am6rica del 
Norte los productos de HARD DISK 
y NETWORK SYSTEMS. 
La primera tarea de David Park se- 
r( nombrar distribuidores en m6s de 
los 30 6 40 paises en los que se utili- 
zan ordenadores Amstrad. 

'1 
I 

Ya tenemos pa- 
ra Amstrad el conocido juego, en 
versi6n para MSX, STAR AVENGER. 
Este juego tuvo una etapa dorada, 
hace tiempo ya, en las m6quinas de 
salas de juego o billares y bares. Pos- 
teriormente y con algunas modifica- 
ciones lieu6 a los ordenadores do- 
msticos. Pero como no a perdido 
nada de su encanto, pasaremos bue- 
nos momentos guiando nuestra na- 
ve a trav6s de angostos tgneles don- 

de pondremos a prueba nuestra ha- 
bilidad de pilotos, Io mismo tendre- 
mosque hater en t6tricas cavernas, 
ejercitaremos la punteria para derri- 
bar las naves enemigas que salen a 
nuestro paso y escapar sorteando las 
gigantescas bolas de fuego que se 
empean en complicar nuestro vue- 
Io. 
Pero no dudamos que con nuestra 
poderosa nave portadora de un 
mortifero 16ser y nuestra pericia, Ile- 
na de serena frialdad, venceremos 
todos los peligros que se nos presen- 
ten. 
STAR AVENGER es de ACE Soft- 
ware y est6 distribuido por MI- 
CROBYTE. 

NUEVO PRECIO 
DEL AMSTRAD 
PCW 8512 
AMSTRAD ESPAI(IA, del Grupo In- 
descomp, acaba de anunciar el nue- 
vo y espectacular precio de su orde- 
nador PCW 8512 que, a partir de 
ahora, ser6 de 149.900 ptas. (ms 
El PCW 8512, que incluye Unidad 
Central con 512 Kde RAM, dos Uni- 
dades de Disco (173 y 720 K), moni- 
tor e impresora de alta calidad, ve- 
nia comercializ6ndose a 169.900 
ptas. (m6s IVA). AMSTRAD ESPAA, 
siguiendo su ya habitual polftica de 
precios, ha decidido trasladar al 
usuario final el descenso en los cos- 
tes de fabricaci6n de este modelo, 
obtenido gracias al enorme ngmero 
de unidades producidas y vendidas 
en los 01timos meses. 

OGLY 
N VERSION 
DISCO 

st6 a la venta la 
versi6n en disco del simp6tico juego 
GOGLY. 
Este, despus de perderse en el re- 
moto pasado, sigue intentando vol- 
ver al presente, atravesando diferen- 
tes 6pocas de la historia. En estas de- 
ber encontrar la Ilave que le abra 
la puerta de una etapa cada vez ms 
moderna y que le acerque a su tiem- 
po. 
Pero con Io que hay que tener mu- 
cho cuidado es con los proyectiles 
que quieren impedir que GOGLY re- 
grese a su poca. 
En su viaje a trav6s de tiempo, 
nuestro amigo puede moverse en 
tres velocidades, r6pida, normal o 
lenta. 
Siendo la velocidad r6pida de una 
acci6n trepidante y sumamente di- 
vertida. 
El juego es de la casa ACE Softwa- 
re y est6 distribuido por MICROBY- 
TE. 

/CoHoY AMSTRAD 5 



' DOBLE V..IDA 
DE 

Yo conocemos un gron ndmero de funciones poro un 
tratamiento avanzado de las cadenas de literales. Podemos 
fraccionarlos, agruparlas, tomar el ndmero de caracteres que 
deseemos, encontrar su Iongitud, etc. Pero Io bueno es que 
todavla nos queda alguna pot descubrir e incluso veremos la 
posibilidad de utilizar alguna no como funcin, sino como 
orden. 

ste Oltimo es el caso de 
MID$, Re.uerda Io que hacfa' No le impor- 
tar6 que se o volvamos a contrr muy some- 
ramente no .ea aue... 
MIDS (cadena, posici6n, Iongitud) 
era, hasta ahora, una funci6n que nos devol- 
via un valor alfanum6rico que ya podiamos 
asignar a una variable o tratarle de acuerdo 
con las necesidades de nuestro programa. 
Consistia en una subcadena literal cornpues- 
ta pot tantos caracteres como indique el pa- 
r6metro dongitud tornados de la (cade- 
na)) especificada a partir del que ocupa el lu- 
gar indicado pot ((posici6n)). Pot ejemplo: 
PRINT MID$ (MICROHOBBY, 3,3) 
nos imprimir6 tres caracteres del valor literal 
MICROHOBB¥ empezando a contar desde 
el que ocupa la tercera posici6n. Si nos ha se- 
guido, no tendr ninguna dificultad en dedu- 
cir correctamente la soluci6n: la subcadena 
¢RO nos aparece en la pantalla. 
Sobre esta definici6n general de la funci6n 
podemos hacer alguna que otra puntualiza- 
ci6n. Escriba ahora: 
PRINT MID$ (MICROHOBBY), 3) 
Aparentemente hemos cometido un error 
sint6ctico puesto que nos falta especificar el 
6 ,IcoHosBAMSTRAD 

valor del par6metro que determina ta Iongi- 
tud de la subcadena. Esperamos, pues, que 
aparezca el mensaje al que ya estamos sufi- 
cientemente acostumbrados: 
SYNTAX ERROR 
Y en esta posici6n el Amstrad nos sorpren- 
de, acepta la instrucci6n como correcta y la 
ejecuta sin problemas. Algo no concuerda con 
Io que conocemos de momento. 
Antes de pensar que nueslro ordenador no 
funciona, analicemos el resultado que nos apa- 
rece en la pantalla: 
(CROHOBBY 
El carcter de comienzo de esta subcadena 
es el que hemos seleccionado -o sea, el que 
ocupa la posici6n nOmero tres- y desde ahi 
coincide con el resto de la primitiva cadena. 
Repita la misma experiencia con cualquier 
olra cadena, comprobar6 que los resultados 
son semejantes. 
Con esto deducimos una nueva facilidad que 
nos ofrece la funci6n MIDS. Cuando falta el 
par6metro que nos indica la Iongitud de la sub- 
cadena, que como vemos, es opcional, el 
Amstrad toma todos los caracteres desde el 
que ocupa la posici6n seleccionada hasta el 
final de la cadena a la que aplicamos la fun- 
ci6n. 
Puede decirnos que es como si en lugar de 
MID$ us6ramos olra de las funciones que ya 
conocemos. Y algo parecido ya es, pero no 
del todo. Observe la diferencia existente en- 
tre ambas tecleando: 
PRINT MID$ (MICROHOBBY, 3) 
y a continuaci6n: 
PRINT RIGHTS (MICROHOBBY, 3) 
Con la primera obfenemos el resultado co- 
mentado anteriormente. Sin problemas. Pero 
la segunda sentencia nos ofrece un resultado 



muy diferente, ;no es asia. En la pantalla nos 
aparecen los tres 01timos caracteres solomen- 
te. Extraado? 
Vuelva a leer la definici6n que dimos de la 
funci6n RIGHTS. Ya? Aplicada a este caso nos 
genera una subcadena de tres caracteres to- 
mados a partir del final de la palabra. Por Io 
tanto, es muy 16gico que se imprima solamente 
los caracteres: 
cBBY)) 
Mientras en MID$ el segundo par6metro 
nos indica el lugar a partir del que vamos a 
ir seleccionando caracteres, en RIGHTS Io que 
nos est6 diciendo es el n0mero de ellos que deo 
bemos tomar empezando a contar desde el 61- 
timo hacia la izquierda. De ahi la diferencia 
entre los resultados obtenidos. 
Y, qu6 ocurre cuando por error se le pasa 
a esta funci6n MIDS una Iongitud de subca- 
dena mayor que el nOmero de caracteres dis- 
ponibles? Compru6belo escribiendo: 
PRINT MIDS (<HOLA, 2,6) 
Hemos pedido al Amstracl que imprima 
6 caracteres comenzando a contar desde el 
segundo de la palabra ((I'IOLA. Y 61, sin 
complicarse mucho la vida, nos ha sacado las 
tres letras disponibles a partir de la (Q. No 
nos ha dado ning0n mensaje de error, sino que 
sencillamente ha tomado los caracteres que ha 
podido. 
Si le parece bien y tiene un poco de curiosio 
dad, calcule la Iongitud de la subcadena ge- 
nerada por la funci6n. Para ello teclee: 
a$=MIDS (((I'IOI.A,,, 2,6) 
despu6s: 
PRINT kEN (aS) 
y se convencer6 de Io que le estamos dicien- 
do. 
El tango, o margen de valores, de los pa- 
r6metros de posici6n y Iongitud de la funci6n 
MIDS est6 comprendido entre 0 y 255 en el 
caso de (Iongitucb y entre 1 y 255 para 
qosicicn. Si damos a cualquiera de ellos 
un n0mero fuera de estos limites se nos pro- 
ducir6, evidentemente, un mensaje de error. 
Pero no Io d6 vueltas, intente comprobarlo por 
sus propios medios. 
PRINT MIDS ((I'IOI.A, 0,2) 
es una instrucci6n err6nea y asi nos Io dice el 
micro: 
IMPROPER ARGUMENT 
No es muy dificil darse cuenta por qu se 
ha producido. Estamos diciendo al ordenador 
que seleccione 2 caracteres tomados a partir 
del que ocupa la posici6n <<cero dentro de la 
palabra (I'IO/A. iUn momento! Cu61 es la 
posici6n cero de una cadena de caracteres? 
Si el car6cter que est6 al principio del literal 
est6 colocado en el lugar <uno, c6mo po- 
demos empezar a seleccionar letras a partir 
del cero? Luego el mensaje de error no es el 
del todo il6gico, verdad? 

Tedee ahora: 
PRINT MIDS (cHOLA, 2,270) 
Nos vuelve a aparecer el mismo mensaje de 
error. Ahora no es debido a que la posici6n 
de comienzo no es correcta sino que se pro- 
duce porque el par6metro de (Iongituct de 
la subcadena se sale fuera del rango: es ma- 
yor de 255. 
Recuerda el tamao m6ximo que admitia 
el Amstrad para un literal? Era precisamente 
255 caracteres, lmaginamos que despus de 
esto no ser6 necesario explicarle por qu6 un 
par6metro de dongitucb igual a 270 est6 
fuera de rango, no es asi? 
Puede ocurrir otra cosa extraa. Imagine 
que estamos aplicando esta funci6n a una ca- 
dena que es de menor Iongitud que la posi- 
ci6n especificada. En la pr6ctica seria: 
PRINT MIDS (I'IOI.A, 64,3) 
A simple vista podemos darnos cuenta que 
i'IOI.A es una palabra de cuatro caracte- 
res. Pero, practique con las funciones y teclee: 
PRINT LEN (cHOLA) 
Si no nos hemos equivocado, el valor que 
aparece coincide con Io que era evidente, no? 
Volvamos a Io nuestro. Con MIDS queremos 
generar una subcadena formada por carac- 
teres de I.IOLA seleccionando 3 comenzan- 
do a contar a partir del que ocupa el lugar 64. 
Ahora bien, hemos dicho que I'IOLA s61o 
tiene 4 letras, asf que, cu61 ser6 el que est6 
en la posici6n 64? 
Escriba de nuevo: 
PRINT MIDS ((I'IOI.A, 64,3) 
y obtendr6 la respuesta en la pantalla. 
Bueno, pues no aparece nada. 
Y esa es precisamente la subcadena que pro- 
duce. Estamos ante Io que hemos Ilamado an- 
teriormente ¢ac:lena va¢ia que consiste 
en un literal que no contiene ning0n car6cter. 
Puede asegurarse de ello, tambi6n, compro- 
bando la Iongitud que tiene. Asi que: 
PRINT LEN (MIDS (I'iOI.A, 64,3) 
y el cero que se visualiza confirma nuestra teo- 
ria. 
Resumiendo. Cuando pedimos la funci6n 
lD$ a una expresi6n alfanumrica y le pa- 
samos un par6metro posici6n mayor que la 
Iongitud de la expresi6n, el ordenador muy as- 
tutamente nos dice que alli no hay nada, nos 
devuelve una ccadena vacla y punto. 



AI principio de este orticuto insinuomos que 
habia alguna funci6n de tratamiento de cade- 
nas que adem6s se podia utilizar como orden 
o comando. MID$ es uno de elias. Quiz6 sea 
una de las pocas palabras clave Basic que per- 
miton esta doble vertiente. 
Hasta ahora nos ha servido para seleccio- 
nar un cierto n0mero de caracteres de los que 
componen una expresi6n literal. Este es su tra- 
bajo como funci6n. 
Pero ahora vamos a intentar cambiar algu- 
no de ellos asigncndoles el valor que quera- 
mos. La manera de hacerlo es asignarles un 
valor, iAsi de f6cil! Lo complicado es la ma- 
nera de situarnos encima de los caracteres que 
necesitamos cambiar y una vez alli transfor- 
marlos en los nuevos. 
Siempre hemos estado presumiendo de que 
el Amstrad poseia un conjunto de sentencias 
y funciones para tratamiento de cadenas muy 
potente. Esta es una buena ocasi6n para de- 
mostrarlo. 
La forma de dar un valor a una variable li- 
teral era mediante una sentencia de asigna- 
ci6n. Con: 
saludoS =HOLA)) 
estamos almacenando en el espacio de memo- 
ria que el ordenador ha reservado para la va- 
riable <saludo$,, la constante alfanum6rica 
((I'IOLA). Quiere comprobarlo?, pues ade- 
lante. 
PRINT saludo$ 
le habr6 sacado de cualquier duda que tuvie- 
ra al respecto. 
En nuestro caso seguiremos un camino pa- 
recido. Ahora seleccionaremos los caracteres 
que queramos cambiar y despus le asigna- 
mos el valor. 

Con: 
aS = <<H OLA)) 
MID" (aS, 2,3) 
estamos omando 3 corocteres de Io palabra 
((HOLA a partir de la ((O)), que es el que 
ocupa el segundo lugar. 
Y precisamente ahi es donde queremos darle 
el nuevo valor. Asi que s61o queda asign6r- 
selo. 
MIDS (aS, 
nos producir6 el efecto deseado. Almacena- 
r( la palabra ((IPO a partir del segundo ca- 
r6cter de HOLA). 
Podemos comprobarlo de la siguiente ma- 
nera. Primero asignamos ((I'IOLA a una va- 
riable y Io visualizamos. Despus hacemos la 
modificaci6n y a continuaci6n imprimimos la 
variable donde se ha realizado el cambio. Esto 
es precisamente Io que hace el programa 1. 
Analic6mosle. 

Programa uno 

En la linea 30 asignamos a la variable 
<<palabraS,, el valor elegido y la imprimimos 
con la 50. 
Realizamos el cambio en la 80. Observe que 
tiene el mismo aspecto que la del ejemplo que 
pusimos. $61o hemos cambiado la constante 
((HOI.A)) por la variable palabraS,,. 
Y visualizamos la modificaci6n con la 90. 
Es muy sencillo, pero creemos que Io sufi- 
cientemente ilustrativo como para despejarle 
los puntos oscuros acumulados. 
Compliquemos un poquito m(s el asunto. 

10 REH PROGRAMA I 
30 palabraS-"HOLA" 
40 PRINT"ANTES DEL AHBIO: "l 
50 PRINT p,labraS 
bO PRINT 
70 PRINT"DESPUES DEL CAMBIO: "; 
BO MZD$(palabra2,3)-"IPO" 
90 PRINT palabra$ 
100 PR;NT 

Vamos a codificar, o al menos intentar hacer- 
Io, un programa que nos permita cambiar 
cualquier carcter de cualquier palabra. El or- 
denador nos preguntar6 por la cadena que 
queremos modificar, luego el nuevo valor, la 
posici6n, el n0mero de caracteres y imanos a 
la obra! 
Y tras largos y penosos procesos 16gicos y 
noches de insomnio (es broma)Ilegamos a la 
conclusi6n que seria atgo parecido al progra- 
rna 2. 

Programa dos 

Introducimos los datos mediante las lineas 
30 a 60. Se hace el cambio en la 110 y se ira- 
prime el resultado en la 120. Sencillo? 
Vamos a intentar sacarle m6s juno a este pe- 
quefio programa. De momento el argumento 
de MIDS no puede ser ya una cadena literal 
constante tal como ocurria antes, sino que es 
necesario que sea una variable literal. Por eso 
pasamos la palabra a la variable (<palabra$ 
en la linea 30. Intente teclear: 
MIDS (((HOLA, 2,3)=(IPO 
y VeF coomo el oFdenadoF [e avisa que est6 
cometiendo un eFFor. 



En esta ocasi6n <longitud contiene el nO- 
mero de los caracteres que tenemos que se- 
leccionar del (muevo valor)) para introdu- 
cirlos despus en la variable literal. El par6- 
metro (<posJci6n) sigue indicando Io que ya 
sabemos: es d6nde comienza la inserci6n de 
los nuevos caracteres. 
Este programa no comprueba si los par& 
metros est6n dentro de los m6rgenes v61idos. 
Por ejemplo, podemos decir queen la posi- 
ci6n 2 de d'IOLA sustituyamos cinco carac- 
teres por dPO. Investigue Io que pasa al 
escribir: 
aS =HOLA 
MIDS (aS, 2,5)=dPO,, 

PRINT aS 

IO REM PROGRAMA 
20 LS 
30 INPUT"DIME UNA PALABRA 
40 INPUT'NUEVO VALOR 
0 INPUT"PSIION 
Q INPUT"NUMERG DE CARACTERES A SUS 
TITUIR "=numer= 
7 PRINT"ANTES DEL CAMBIQ: 
80 PRINT 
|00 PRINT"DEPE DEL CAHBIO= 
110 HIDl(palabrapKi=innumBr)  
120 PRINT 
I0 PRINT 

Estamos pidiendo que sustituya cinco carac- 
teres a partir de la (0) de HOLA por 
otros cinco que coja de dPO (s61o tiene 
tres). 
Puede preguntar despu6s la Iongitud de la 
cadena obtenida como comprobaci6n y, vien- 
do los resultados, seria capaz de sacar algu- 
na conclusi6n. Imaginamos que si, ya que es- 
tamos siguiendo un proceso anlogo a Io que 
dijimos para MIDS empleada como funci6n en 
los casos que los par6metros no concuerdan 
del todo. Haga las pruebas que se le ocurran, 
dentro y fuera del rango, y anote los resulta- 
dos. Seguro queen algOn momento pueden 
venirle como anillo al dedo todos estos apun- 
tes. 
Pero nosotros, por si acaso, hemos codifi- 
cado el programa 3 en el que ya si se chequea 
que los valores de dongitud y <posici6n sean 
medianamente correctos. Echele un vistazo. 

Programa tres 

Continuemos avanzando. Ahora, en vez de 
sustituir, vamos a presentar otra funci6n que 
Io que va a permitir es detectar si una deter- 
minada cadena est6 o no incluida en una cons- 
tante o variable literal. Seria muy interesante 
para corregir o modificar una palabra que es- 

tc incluida repetidas veces en una cadena, por 
ejemplo. 
La funci6n a la que nos referimos es INSTR 
y esta es su forma general: 
INSTR (posici6n, cadena-1, cadena-2) 
que nos determina si la (cadena-2), o ca- 
dena buscada, est6 contenida en 
co¢leno-1 , o cadena en la que se busca, 
a partir de la posici6n indicada por 
ci6n). Enrevesado? 
Vemoslo en la prcctica. Necesitamos en- 
contrar si una determinada palabra contiene 
la letra (A. Pues primero dele un valor a la 
palabra: 
palabra$ = <<HOLA 
y despu& 
PRINT INSTR (1, palabraS, 

IO REM PROQRAMA 
20 LS 
3Q INPUT"DIME UNA PALABRA "palabra 
$ 
40 INPUT"NUVO VALOR 
50 IF LEN(va1rS)>LENpalabra$) THE 
N GOTQ 40 
0 INPUT"POSICIQN 
70 ZF p=sicin>LEN(palabra$ THEN G 
OTO 0 
BO INPUT"NUMERO DE CARACTERES A SUS 
TITUIR "lngltud 
• 0 IF p¢in+lonItud-1>LENpalab 
a$) THEN PRINT"NOS SALIMOS DE LAP 
ALABRA":OOTO 60 
100 PRINT 
110 PR|NT"ANTES DEL CAMBIO: "! 
120 PRINT 
13 PRINT 
140 PRINT"DESPUES DEL CAMBIO: "! 
150 MZD$(palabralposi¢inl=ngltud 
)=valQr$ 
160 PRINT palabra$ 
170 PRINT 

Con esta Oltima instrucci6n le decimos al 
Amstrad que detecte e imprima si dentro de 
<<HOLA) y a partir de la primera posici6n es- 
t6 incluida la letra (<A>>. A simple vista es muy 
f6cil ver que <<HOLA si tiene <(A)o 
Qu6 le ha aparecido en la pantalla. Vaya!, 
resulta que ha sido un nOmero: el 4. 
Con 61, INSTR nos est6 sealando ta posi- 
ci6n donde ha encontrado la <<A,. Concuer- 
da con Io que habia deducido en su inspec- 
ci6n ocularS. 
Asi que INSTR nos devuelve un nOmero en- 
tero que marca el lugar a partir de donde se 
encuentra la cadena buscada (cadena-2). 
Qu6 pasar6 cuando no est incluida en 
<<cadena-l. Compru6belo, como siempre, us- 
ted mismo escribiendo: 

aS = <PEPITO 

a continuaci6n: 
PRINT INSTR (1,a$, <<A)) 
y ahora el resultado es un cero. La posici6n 
0 no existe, asi que podemos asociar que este 
valor a que <<A no est6 contenida en <PEPI- 
TO. Y no nos faltaria mucha raz6n. 

El primer par6metro, el de posici6n, es op- 
cional. Puede ir o puede faltar. Si le ponemos, 
el ordenador empezar6 a buscar a partir de 
ese lugar o Io que es Io mismo, le estamos in- 
dicando el punto donde debe empezar a bus- 
car. Cuando no vaya como part, metro en la 
expresi6n de INSTR, el Amstrad asume que 
ha de comprobar si A est6 incluida en la va- 
riable literal, en este caso <<aS, a partir del 
primer car6cter de la misma. Compru6belo te- 
cleando: 
aS =<<HOLA)) 
PRINT INSTR (aS, 
y obtendr6 los mismos resultados que con el 
ejemplo anterior. 
.Cree necesario que le contemos algo so- 
br los m6rgenes entre los que se debe mo- 
ver el valor de este par6metro de <<posici6n,? 
Seguro que no. 
Y nada m6s por el momento. Le dejamos con 
unas cuantas instrucciones agrupadas que nos 
permitircn cambiar una cadena dentro de una 
palabra por otra a nuestra elecci6n, con la Oni- 
ca limitaci6n que tengan la misma Iongitud. Es- 
tudie con detenimiento el programa 4 y ano- 
te la manera de emplear todas estas instruc- 
ciones de fraccionamiento y manejo de cade- 
I]OS. 

Programa cuatro 

Con un helado bien frio en las manos, al bor- 
de de un maravilloso lago de aguas tranqui- 
las, que es Io m6s propio para sobrellevar el 
verano, nos atrevemos a decirle: iHasta pron- 
to! 

10 RKM PROBRAMA IV 
20 CLS 
30 INPUT"DIME UNA PALABRA 
$ 
40 PRINT 
0 INPUT"CADENA A SUSTITUIR 
aS 
60 ¢n¢nldINSTR<plabal¢adn$ 
70 IF ¢ntenid=-O THEN PRINTNQ EgT 
A =ONTENIDA":END 
eO INPUT"POR 
90 IF LEN(¢ambI)<LEN(¢dinI) TH 
EN PRINT"NO EQIN¢IDE LA LONQITUD":8 
OTO gO 
IOQ MZDl(plabraS¢ntenldLEN(am 
11Q PRINT 
120 PRINT palaba$ 
I0 END 
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MANIPULACION 
DE LISTAS EN LISP 

Por: Roberto Garrote 8ernal 

Es probable que los dos (dtimos artlculos que han aparecido en esta 
secci6n (programaci6n funcional y recursi6n) os hayan parecido 
complicados, dificiles de leer e incluso aburridos. Ha sido necesario 
escribirlos porque ten,amos que asegurarnos de que cuando habl6semos 
de funciones y de recursi6n no os bais a preguntar y eso qu es? Si Io 
he conseguido, os felicito; pero si no ha sido as no os preocut)is: mucha 
gente que sabe programar en LISP sigue sin saberlo muy [ien. A Io 
largo de esta serie de articulos iris comprendiendo un poco mejor esos 
dos conceptos. Esta semana relojoremos nuestras mentes aprendiendo a 
maneiar listas con las herramientas que LISP nos proporciona. 

I0 ,/COHOSSr AIHSTRAD 

. / 



ntes de empezar con el 
tema quisiera pedir disculpas par un fallo que 
se col6 en el int@rprete de LISP publicado en 
el AMSTRAD Especial, n. ° 2 y que muchos 
de vosotros ya habris descubierto. El proble- 
ma surge cuando el intrprete intenta escribir 
valores booleanos (T o NIL). Los ejemplos que 
estaban en el articulo del Especial se habian 
probado con una versi6n anterior del intSrpre- 
te y de ahi que yo no los detectara. La solu- 
ci6n, sin embargo, es sencilla. Ahi va. La li- 
nea 60270 dice: 
60270 DIM LO(1): LO(O):NL: LO(1):T 
Debe decir: 
60270 DIM LO(1) 
Antes hay que aadir una nueva linea, que 
es: 
60345 LO(0)=NI.= LO(1)=T 
Subsanando el error podis volver a releer 
los articulos de LISP que ban aparecido basra 
ahora paro comprobar que de verdad fun¢io- 
na. (Y tal vez alg0n dia as explique en qu for- 
ma frabaia un interprete de LISP.) 
Vamos a empezar recordando algunas de- 
finiciones que utilizaremos a Io largo de los ar- 
ticulos que vayan apareciendo. Te aconseio 
que las grabes para que asi no tengas que te- 
clearlas cada vez que hagas un programa. Pa- 
ra grabarlas puedes hacer dos cosas: la pri- 
mera es escribirlas con un procesador de tex- 
tos y la segunda es d6rselas a tu intrprete de 
LISP y luego decirle que las guarde. Si eliges 
la primera opci6n deber6s grabarlas en un fi- 
chero que tenga extensi6n (<.LIS>, par ejem- 
plo, LISfA$.LI$. Si optaste par la segunda 
puedes ir escribi(ndolas y luego te explicar6 
c6mo se guardan en disco o en cinta. 
(DE PRIMERO (LIS)(CAR LIS)) 

(DE RESTO (LIS)(CDR LIS)) 
(DE SEGUNDO (LIS)(PRIMERO (RESTO LIS))) 
(DE TERCERO (LIS)(SEGUNDO (RESTO LIS))) 
(DE N-ESIMO (N LIS) 
(COND ((= N O)'(NO EXISTE EL ELEMEN- 
TO DE NUMERO CERO)) 
(T (N-ESIMOAUX N LIS)) 
)) 
(DE N-ESIMOAUX (N LIS)) 
(COND ((NULL LIS)'(LA IISTA NO TIENE 
TANTOS ELEMENTOS)) 
((= N I)(PRIMERO LIS)) 
(T (N-ESIMOAUX (SUB N I)(RESTO LIS))) 
I )) 
Si opfasle par escribir estos definiciones con 
un procesodor, vamos a hocer que tu genio 
de LISP las leo. Para ella debes cargar antes 
el intrprete tecleondo R U N"MI N ILISP desde 
BASIC. (Es posible que si alguno ha intentado 
cargar el programa en un 464 con disco se ha- 
ya encontrado con errores del tipo <Encontra- 
do fin de fichero>. En ese caso no debes usar 
coma cargador el programa MINILISP sino 
que debes ejecutar directamente el programa 
LISP,BA$. Este fichero tiene coma comenta- 
rios las lineas 60.000 y 60.010. Debes supri- 
mir las comillas de los comentarios de modo 
que queden coma lineas de programa norma- 
les. Cuando quieras modificar el n0mero de 
identificadores deber6s cambiar el valor de la 
variable l-rS, que se inicializa en la Ifnea 
60.000. Un valor de 300 suele ser adecuado 
en la mayor parte de las ocasianes.) 
Ahora el genio de MINILISP ya est6 dis- 
puesto a recibir tus 6rdenes. Para que lea el 
fichero con las definiciones de las funciones de- 
bes escribir 
(OPEN ® nombre..- 'INPUT) 
donde ®nombre'- debes sustituirlo par el 
nombre que le diste al fichero donde escribis- 
te las definiciones, pero sin la extensi6n, que 
debe ser {{.LIS. Par ejemplo, coma nosotros 
Ilamamos al fichero/ISfA$.LI$, debemos es- 
cribir: 
(OPEN 'LISTAS 'INPUT) 
El geniecillo de MINIIISP se encargar6 de 
abrir el fichero, leerlo, ubicar las definiciones 
en su memoria y, cuanda acabe con 81, cerrar- 
Io y avisarte de ella hacienda sonar un 
Par si fuiste de los que prefirieron escribir 
las definiciones directamente en el interprete 
y quieres guardarlas ahora, par si acaso lue- 
go hacemos alguna trastada, entonces debes 
escribir: 
(OPEN ' < nombre > 'INPUT) 
Coma nosotros estamos usando el nombre 
LISTAS, debemas escribir: 
(OPEN 'LISTAS 'DEFS) 
Entances el interprete de MINIIlSP crea- 
r6 un fichero de texto con el nombre 
LISTAS.LIS en el que escribir6 todas las de- 
finiciones que le hayamos dado hasta ese mo- 
menta. 

Ahora que ya tenemos guardadas las pri- 
meras definiciones podemos empezar a jugar 
con nuestro int6rprete. Cuando se pretende 
programar en un lenguaje de 4{alta aivel:,, 
, coma LISP, no se puede pensar a <bajo ni- 
veb, es decir, no se puede pensar en la repre- 
sentaci6n de los objetos con los que se traba- 
ja, sino en los objetos mismos. Voy a explicar 
esto 01timo. En su articulo anterior comenta- 
ba la forma en la que se representan las listas 
en LISP mediante la utilizaci6n de punteros. Es- 
to puede ser de utilidad para entender c6mo 
trabajan las funciones b6sicas, pero cuando 
se usan listas en un programa hay que pen- 
sar en elias coma una sucesi6n de objetos or- 
denada de una determinada forma, y no co- 
ma una serie de direcciones de memoria que 
apuntan a determinados lugares. Este prate- 
so se llama abstracci6n de datos y cuando con- 
seguimos realizarlo podemos considerarnos un 
escal6n par encima del resto de los progra- 
madores. En esta serie de artkulos veremos 
bastantes ejemplos de abstracci6n de datos. 
Adem6s esta es una t6cnica que te set6 de uti- 
lidad cuando programes en cualquier lenguaje 
de alto nivel (no necesariamente LISP) coma 
par ejemplo, Pascal. iEnciende tus motores fo- 
t6nicos y acomp6anos al mundo de los ob- 
jetos abandonando el liviano mundo de los bits 
y los bytes! iUna fabulosa aventura te est6 es- 
perando! 
Para manipular objetos de cualquier tipo ha- 
cen falta unas cuantas operaciones. Par ejem- 
plo, imaginate que nos encontramos en un 
campo y queremos trabajar con 6rboles: po- 
darlos, plantarlos, etc. Pero clara, antes de po- 
dar alga tenemos que estar seguros de que se 
trata de un 6rbol. iLa que se podria liar si po- 
d6semos otros objetos que no fuesen 6rboles! 
Necesitamos par tanto tres tipos de operacio- 
nes: 
1. Reconocedores, para saber con qu 
objeto estamos trabajando. 
2. Constructores, para generar nuevos 
objetos a partir de arras. Juntando una raiz 
y varias ramas poddamos construir un 6rbol. 
3. $electores, que sirven para separar 
un objeto en sus diversos componentes. Par 
ejemplo, un 6rbol se puede separar en raiz y 
ramas. 
Para trabajar con listas s61o necesitamos 
unas pocas operaciones de estos tres tipos: 
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1. Reconocedores: 

NULL: para saber si una lista es la lista va- 
cia. 
(NULL '(A B C)) vale NIL 
(NULL '(A.B) vale NIL 
(NULL '()) vale T 
(NULL O) vale T 
(NULL NIL) vale T 
Recordemos que la lista vacia se represen- 
ta, bien coma O, bien coma NIL. Adem6s la 
lista vacia no necesita la camilla porque su va- 
lor es ella misma. 
ES-LISTA: responde a la pregunta de si un 
objeto es una lista. 
(ES-LISTA '(A B C)) vale T 
(ES-LISTA '(A.B))vale NIL 
(ES-LISTA O) vale T 
(ES-LISTA 'A) vale NIL 

2. Constructores: 

Ale, lADE: dados un objeto cualquiera y una 
lista, construye una nueva lista que tiene co- 
ma primer elemento el objeto y coma resto la 
lista dada. (El nombrecito se debe a los pro- 
blemas con las e#es.) 
(ANYADE 'A '(B C)) vale (A B C) 
(ANYADE '(A B)'(C D E))vale ((A B)C D E) 
(ANYADE 'A O)vale (A) 
LIST: hate una lista con todos los objetos que 
se le dan en el arden dado. 
(LIST 'A 'B 'C 'D) vale (A B C D) 
(LIST 'A 1 'B 2) vale (A 1 B 2) 
(LIST '(A))vale ((A)) 
(LIST) vale 0 

3. Selectores: 

PRIMERO: devuelve el primer elemento 
de la lista que se le pasa coma argumento. 
(PRIMERO '(A B C)) vale A 
(PRIMERO '((A B) C D E)) vale (A B) 
(PR  MFRO '(A)) vale A 
RESTO: devuelve la lista que recibe coma 
argumento sin su primer elemento. 
(RESTO '(A B C)) vale (B C) 
(RESTO '((A B) C D E))vale (C D E) 
(RESTO '(A))vole 0 
De lodas estas funciones NULL y LIST est6n 
ya definidas (son primitivas). PRIMERO y RES- 
TO las hemos definido nosotros a partir de las 
funcianes CAR y CDR. La funci6n ES-LISTA 
la podriamos construir de la siguiente forma: 
(DE ES-LISTA (SEX) 
(COND ((NULL SEX)T) 
((ATOM SEX) NIL) 
I  /ICROHOBB AMSTRAD 

(T (ES-LISTA (RESTO SEX))) 
)) 
ANYADE es f6cil de definir usando la fun- 
ci6n CONS. 
(DE ANYADE (OBJ LIS)(CONS OBJ LIS)) 
Si alguno se ha empolladoya el ma- 
nual de MINILISP tal vez haya pensado que 
la funci6n PAIRP puede servir para saber si un 
obieto es una lista. Esta funci6n s61o sirve pa- 
ra saber si un objeto es un par, pero ni todas 
las listas est6n formadas par pares ni todos los 
pares son listas. Par ejemplo: 
(PAIRP 0) vale NIL 
(ES-LISTA ()) vale T 
(PAIRP '(A.B)) vale T 
(ES-LISTA '(A.B)) vale NIL 
Con todo Io que ya sabemos de listas vamos 
a construirnos un diccionario. Haremos dos co- 
sas: primero, dadas una lista de palabras en 
castellano y la lista de las traducciones en in- 
gl6s (en cualesquiera arras lenguajes, que al 
genio de MINILISP eso le da igual) asociare- 
mos a cada palabra su traducci6n; luego, 
construiremos una funci6n para buscar la pa- 
labra inglesa que est6 asociada a la palabra 
en castellano. 
A la funci6n encargada de realizar la pri- 
mera labor la Ilamaremos HAZPARES. 
(DE HAZPARES (LISI LIS2) 
(COND ((NOT (ES-LISTA LISI))'(MAL 
EMPIEZAS)) 
((NOT (ES-LISTA LIS2))'(VAYA, IBAS BIEN)) 
(T (HPAUX LISI LIS2)) 
)) 
(DE HPAUX (LISt LIS2) 
(COND ((NULL LISt)0) 
(T (ANYADE (CONS (PRIMERO LISI) 
(PRIMERO LIS2)) 
(HPAUX (RESTO LISI) 
(RESTO LIS2)) 
Vamos a ejecutor este programa. 
(HAZPARES '(UNO DOS TRES CUATRO) 
'(ONE TWO THREE FOUR)) 
Su valor es: 
((UNO.ONE) (DOS.TWO)(TRES.THREE) 
(CUATRO.FOUR) 
Para no tener que construir el diccionario ca- 
da vez que queremos buscar una palabra es 
mejor crear una constante que tenga coma va- 
lor el diccionario. Llamemos a esta constan- 
re, par ejemplo, DICCIONARIO. Entonces 
(PUT 'DICCIONARIO 
'VALUE 
(HAZPARES '(UNO DOS TRES CUATRO) 
'(ONE TWO TRHEE FOUR))) 
liga la constante DICCIONARIO a la lista 
de pares construida par HAZPARES con las lis- 
tas dadas. Si quieres comprobar que, en efec- 
to, el genio de MINILISP ha hecho esto pue- 
des escribir 

DICCIONARIO 
y MINILISP te contestar con: 
((UNO.ONE) (DOS.TWO)(TRES.THREE) 
(CUATRO.FOUR)) 
Vamos ahora con la segunda funci6n, A$O- 
¢IA, que se encarga de darnos la traducci6n 
de una palabra de nuestro diccionario. 
(DE ASOCIA (PAL DICC) 
(COND ((NULL DICC)'(NO CONOZCO ESA 
PALABRA)) 
((EQ PAL (CAR (PRIMERO DICC)))(CDR (PRI- 
MERO DICC))) 
(T (ASOCIA PAL (RESTO DICC))) 
)) 
Ahoro podemos preguntorJe al genio la tro- 
ducci6n de TRES escribiendo 
(ASOCIA 'TRES DICCIONARIO) 
devolviendo THREE. 
Existe una funci6n incorporada en MINILISP 
que hate m6s o menos Io que HAZPARES. Se 
llama PAIRLIS. Se diferencia de HAZPARES en 
que la lista que devuelve est6 invertida. Los 
mensajes que devuelve en caso de dabs err6- 
neos tambin son diferentes. Site molesta que 
la lista de pares est6 al rev6s puedes usar la 
funci6n REVERSE para invertir la lista. Par 
ejemplo: 
(REVERSE '(A B C D)) vale (D C B A) 
Par tanto 
(REVERSE (PAIRLIS '(UNO DOS TRES 
CUATRO) 
'(ONE TWO THREE FOUR))) 
vale Io mismo que 
(HAZPARES '(UNO DOS TRES CUATRO) 
'(ONE TWO THREE FOUR)) 
Tambi6n exisfe una funci6n incorporada en 
MINILISP que actga de formo semejante a 
ASOCIA. Se llama ASSOC. Si no encuentra la 
palabra que le pedimos devuelve NIL y si la 
encuentra devuelve el par formado par la pa- 
labra que le hemos pasado y su traducci6n. 
Las funciones para construir y manejar un 
diccionario funcionar6n tambin en el caso de 
que la segundo lista no sea una lista de polo- 
bras, sino una lista de cualquier otra cosa. Par 
ejemplo 
(PAIRLIS '(I 2 3 4) 
'((UNO ONE)(DOS TWO)(TRES THREE) 
(CUATRO FOUR))) 
devuelve 
((I UNO ONE)(2 DOS TWO)(3 TRES THREE) 
(4 CUATRO FOUR))) 
(ASSOC 2 '((I UNO ONE)(2 DOS TWO))) 
vale (2 DOS TWO). Si en vez de ASSOC usa- 
mos ASOCIA el valor es (DOS TWO). 
En el pr6ximo articulo veremos c6mo se pue- 
den definir y manejar pilas, colas y 6rboles 
usando LISP. Y muy pronto hablaremos de ba- 
ses de datos inte igentes! ' 
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¢OM EN TAR I0 
A NEVVTON 

Newton ha $ido como una aplicaci6n para la fsica 
de BUP. Intentamos con 1 ser el adecuado 
¢omplemento inform6tico a las clases o un 6til 
instrumento para presentar, explicar y resolver 
.roblemas de m6qulna de Atwood (pianos 
inclinados), mediante las ecuaciones de Newton. 

Estructura 

emos tratado de pre- 
sentar la informaci6n de la forma m6s senci- 
Ila posible, para ello hemos potenciado las 
pantallas gr6ficas, tratando de presentar la 
mayor cantidad posible de informaci6n por es- 
te mtodo. Nuestro programa dibuja las ma- 
sas, pianos inclinados, pesos, resultantes y nor- 
males, poni6ndoles nombre con la siguiente 
notaci6n: 
" M?: Masa ? (la interrogaci6n es un nOme- 
ro) 
* P?: Peso ? 
* R?: Fuerza resultante en la direcci6n del 
movimiento de la masa 
* N?: Normal, fuerza resultante en la 
recci6n perpendicular a la direcci6n del mo- 
vimiento. 
Otra forma sencilla de presentar la informa- 
ci6n es a trav6s de pantallas de texto. No he- 
mos escatimado de esta manera informaci6n 
adicional sobre el problema, junto con una ex- 
plicaci6n detallada de los resultados y los pa- 
sos intermedios. Para completar el programa 
he incluido un generador aleatorio de proble- 
mas junto con subrutinas que presentan el pro- 
blema permiti6ndote operar para conseguir el 
resultado que despu6s comparar6s con la so- 
luci6n verdadera para poder de alggn modo 
permitirte conocer tus errores. 

14 ,COHOY AJH$1"RAD 

Cobecero: 
Resolver problemo 
Poner problemo 

A) Resolver problemas: 
Una masa 
Dos masas 

A.1. Dos masas: 
" Entrada de datos din6mica. 
* Presentaci6n del problema y resultados 
intermedios dos masas. 
* Dibuiar 
* Presentaci6n de resultados 

A.2. MenO una masa: 
Estgtica 
Din6mica 

A.2.a. Est6tica: 
Hallar 6ngulo. 
Hallar coeficiente de rozamiento. 
A.2.a.1. Hallar 6ngulo: 
* Entrada de datos est6tica. 
• Presentaci6n de ecuaciones y resultados 
intermedios angulo. 
* gibujar. 
* Presentaci6n de resultados una masa. 

A.2.a.2. Hallar coeficiente de rozamiento: 
* Entrada de datos est6tica. 
* Presentaci6n de ecuaciones y resultados 
intermedios coef. rozamiento. 
* gibujar. 
t Presentaci6n de resultados una masa. 

A.2.b. Din6mica: 
* Entrada de datos din6mica. 
* Presentaci6n del problema y resultados 
intermedios din6mica una masa. 
* gibujar. 
* Presentaci6n de resultados una masa. 

B) 
tos. 
dOS. 

Poner problema: 
General problema. 
Presentaci6n del problema y de los da- 

Operaciones e introducci6n de resultao 

Control de soluciones: 

Bien 
Mal 
B.1. Bien: 
Volver a empezar 
Otro problema 
B.2. Mal: 
Volver a empezar 
Intentarlo de nuevo 
Ver resultados 

Trabajando con Newton 

Es muy f6cil, s61o tienes que tener en cuen- 
ta el siguiente criterio: 
PULSA significa que deber6s pulsar la tecla 
que se te indica para realizar la operaci6n que 
anuncia. 
METE o si no se indica nada, s61o se pide 
informaci6n, deberas teclear la informaci6n 
que se pide, s61o numrica, y despu6s dar a 
la teda de vuelta de carro, return o enter. 



 REN ** pograma hecho 
5 REM *** 
4 REM **% by 
5 REM ** 
6 REM *%% CESAR LOBATO 
8 REM 
9 REM Este programa calcula las ace 
leraclones de masas pot NEWTON 
10 CLS 
20 REM PARTE DECLARATIVA 
30 DIM rez(2},coef(2},oper(8),nomb$ 
(8):ERASE rez,coe÷,oper,nomb$ 
40 DIM masa(2),ang(2),ka(2,3) 
50 ERASE m.asa,ang,ka 
60 DIM a(2,b(2,pol (I,2c(I,2) 
70 ERASE polabc 
80 SYMBOL 253,16,16.124,16,1,0,124 
,O:SYMBOL 254,024242424,11&i16 
0 
90 CLS:DEG:WINDOW#4I40,2225:PAPE 
R#43 :CLS#4 
100 WINDOW#2I,40, I5:PAPER#23:CLS 
#2 
llO WINDOW#O, 
120 DES 
130 REM CABECERA 
140 PRINT#2,"pulsa H y resolvere pr 
oblemas pulse P y te pond 
re problemas" 
150 b(l}=3(12:b(2-192 
160 nml O:nm O:m2 0 
170 nml nml+l:IF nml)4 OR nml<-O TH 
EN nml-l:ang(1}=O ELSE IF nml 1 THE 
N ang(1)=O ELSE IF nml 2 OR nml 3 T 
HEN ang(1) 45 ELSE IF nml-4 THEN an 
180 nm=nm+l:IF nmb4 THEN nm=1:nm2=n 
m2+l 
190 IF nm2>4 OR nm2<-O THEN nm2-1:a 
ng(2}=O ELSE IF nm2=l THEN ang(2}=O 

ELSE IF rim2 2 OR rim2=3 THEN ang(2) 
45 ELSE IF nm2-4 THEN ang(2) 90 
200 a(1) 192:a(2)-192%2+32:pol (II) 
=320:nl=2:n4-1:pol (I2)=17'16:c(II 
)=I:c(I2)=2 
210 ka(l,3) nm1:ka(23)=nm2:GOSUB  
I0 
220 FOR i-I TO 500:NEXT i 
230 WINDOW#OI,40I25 
240 e$ INKEY$ 
250 IF e$-"H" OR e$-"h" THEN CLS#2: 
ag-I:SOTO 270 ELSE IF e$="P" OR e$ 
"p" THEN ajg=l:SOTO 2030 ELSE GOTO 
170 
2&O REM MENU F'RIMANIO 
27'I CLS#2:CLS#4:SOUND 1,239,50,S:F'R 
I NT#2, SPC ( 17 ) ; "I40L A" : SPC (17)  SF'C (B) 
:"Vamos a resolver un problema";SPC 
(9);SPC(IB);"de"SPC(18):SPC(II)"p 
lands inclinados";SPC(12)SPC(12};" 
maquina de ATWOOD" 
280 PRINT#4,"masas maximas 2":INPUT 
#4,"ruantas masas pot avor"nl 
290 IF FIX(nl)<}nl TNEN CLS#4:SOTO 
280 
300 IF nl<l OR hi>2 THEN CLS#4:GOTO 
280 
310 IF nl-i THEN a(1)=312:n40:GOTO 
380 
320 a(1) 192:a(2)-1922+32:c(1,1)-I 
:c(I,2)-2:poi (I,1) (192+1922+32}/2 
:pol (I,2) 1516:ka(I,3) 2:ka(23) I 
:ang(1)-45:ang(2)-45:n4-1 
330 REM CUERPO PRINCIPAL 2 MASAS 
340 GOSUB 1520 
350 SOSUB 1740 
360 GOSUB 2290 
370 REM MENU I MASA 
380 CLS#2:CLS#4 
390 PRINT#2,"Estatica pulsa E 
Dinamica pulsa 0" 
400 e$-INKEY$ 
410 IF e$="E" OR e$="e" THEN GOO 4 
30 ELSE IF e$-"D" OR e$ "d" THEN GO 
TO 470 ELSE GOTO 400 
420 REM MENU ESTATICA 
430 CLS#2:CLS#4:sI=O 
440 PRINT#2,"Si NO conoces... 
Angulo pulsa A 
Coeiciente 
de rozamiento pulsa C" 
450 e$-INKEY$ 
460 IF e$-"A" OR e$ "a" THEN st-1 E 
LSE IF e$-"C" OR e$ "c" THEN sl=2 E 
LSE GOTO 450 
470 REM CUERPO PRINCIPAL UNA MASA 
480 IF sl-I OR sl 2 THEN GOSUB 3570 
ELSE GOSUB 1520 
490 IF sl I THEN GOSUB 3730 ELSE IF 
sl 2 THEN GOSUB 3840 ELSE GOSUB 39 
70 
500 IF sl=1 THEN ang(l>-ATN(coe(1) 
) 
510 ang(1) ROUND(ang(I>,3) 
520 GOSUB 910 
530 IF sl 1 THEN CLS#2:CLS#4:LOCATE 
#2,11:PRINT#2,"Angulo-arctg(coe÷ic 
iento de rozamiento" 
540 IF s1=l THEN LOCATE#2I,2:PRINT 
#2,"Angulo=":ang(1) 
550 IF sl 2 THEN GOSUB 910:CLS#2:CL 
S#4:LOCATE#2,1I:PRINT#2"coeficien 
to de rozamiento= (mas 
al*9.8sen(angulo)+Fx)/(masal%9.8c 
os(angulo)+Fy)" 
560 ac (masa(1)*9.8*COS(ang(1))+yl 
):ac-ROUND(ac3):IF ac 0 THEN ac=5 
ELSE ac=(masa(1)*9.BSIN(ang(1))+'x 
1)/at:at ROUND(ac,3) 
570 IF (masa(1)*9.BSIN(ang(1))+fxl 
) 0 THEM ac 9 
580 IF at'>1 AND si=2 IHEN L_OCATE#2, 
1,2:PRINT#2"no existe un coeTicien 
te de rozamiento que cump]a 15 CO 
ndiciones":GOTO 610 
590 at=ROUND(at,4) 
600 IF sl 2 THEN LOCATE#2,1,4:PRINT 
#2,"coeiciento de rozamiento ":at 
610 IF si<>2 AND SI<>I THEN CLS#2:C 
LS#4:LOCATE#2,1I:PRINT#2,"("MASA(I 
)"*At "mas(1)"*9.81*sen("ang(1)")+" 

Tx I : CHR$ (253) : " ("masa ( i ) ".9. 81*cos ( 
"ang (I) ") +"fy1") " 
620 IF sI<2 AND SI<>I THEN LOCATE# 
2, 1,3:PRINT#2,"MASA "masa(1),"ANGUL 
O="ang(1):LOCATE#2,1,4:PRINT#2"Coe 
iclente de rozamlento="coe(1):LOC 
ATE#2,1,5:PRINT#2,"FxI="xI,"Fyl "f 
yl 
630 IF sI<>2 AND sl<>l THEN res=mas 
a(1)*9.81*SIN(ang(1}l+x1:fuer=coef 
(1)*(masa(1)*9,81SIN(ang(1))+yl): 
fceM ROUND(fuer3):res-ROUND(res.3) 
640 IF tler<O THEN LOCATE#",I,I:?#2 
,"LA MASA SE SALE DEL PLANO":goto 4 
79 
650 IF ABS(res)<ABS(uer) THEN suma 
0 ELSE IF res<O THEN suma=(res+ue 
r)/masa(1):suma ROUND(suma,3) ELSE 
suma (res-uer)/masa(1):suma ROUND( 
suma,3) 
&60 IF si<>2 AND SI<>I THEN LOCATE# 
4,1,3:PRINT#4,"ACELERACION="suma 
670 PRINT#4,"pulsa C volver a empez 
680 e$=INKEY$ 
690 IF e$="C" OR e$ "c" THEN GOTO 7 
00 ELSE 680 
7CI0 RUN 
710 RETURN 
720 REM ENTRAOAS DE FUERZAS ADICION 
ALES EXTERIORES 
70 CLS#4: LOCATE#4,1,2:PRINT#4,"FU 
ERZAS ADICIONALES EXTERIORES 
modulo y angulo pulsa M 
cordenadas pulsa C 
no ureza adicional pu 
! sa N" 
740 e$ NKEY$ 
750 IF e$ "C" OR e$-"c" THEN GOTO 7 
&O ELSE IF e$-"M" OR e$-"m" THEN 0 
TO B30 ELSE IF e$="N" OR e$ "n" THE 
N RETURN ELSE SOTO 740 
760 CLS#4:PRINT#4,"Mete coordenada 
horizontal de la fuerza" 
770 INPLIT#4,1olaI:IolaI=ROUND(Io]al 
780 CLS#4:PRINT#4"Mete coordenada 
vertical de la {uerza" 
790 INPUT#4,1ola2:Iola2 ROUND(Iola2 
,3) 
800 IF i-I THEN {xl Iola1%COS(ang(1 
))+Iola2SIN(ang(l>:{yl-lola1SIN(a 
ng(1))+Io]a2COS(ang(1)):xl ROUND( 
xl,3I:yI-ROUND(yl,3) 
810 IF i-2 THEN fx2-1olalCOS(ang(2 
))+lola2SIN(ang(2)):y2=IolalSIN( 
anq(2))+lola2*COS(ang(2)):fxl-ROkiN 
(xl,3):yI=ROUND(yI) 
820 RETURN 
830 C S#4:PRINT#4,"Mete modulo de 1 
840 INPUT#4,modu:modu ROUND(modu,3) 

850 CLS#4:PRINT#4,"Mete anoulo que 
forma ton horizontal la fuer:a" 
86¢ INPUT#4,angu 
870 IF i-I THEN fxl-moduCOS(angu): 
yl-moduSIN(angu) 
880 IF i=2 THEN ×2 moduCOS(angu): 
y2 modu%SIN(angu} 
890 fxl ROUND(xl,3):fyI-ROUND<fyl, 
3):x2=ROUND(x2,3):y2-ROUND(y2,3 
) 
900 ETURN 
910 REM PINTAR 
920 ca=FIX(640/nl) 
930 IF ajg=l THEN CLS:CLS#2:CLS#4 E 
LSE WINDOW#O,I,406,22:CLS 
940 FOR i=I TO nl 

' coor AtASTRAD 15 



LISTA DE 
SUBRUTINA$ 

1-9 Nombre 
10-120 Parle declarativa 
130-250 Cabecera 
260-320 Men0 
330-360 Cuerpo principal dos masas 
370-410 MenO una masa 
420-460 Meng est6tica 
470-710 Cuerpo principal una masa 
720-900 Entrada de fuerzas adiciona- 
les 
910-1510 Pintar 
1520-1730 Entrada de datos din6mica 
1740-2020 Presentaci6n de ecuaciones 
dos masas 
2030-2090 Cuerpo principal poner pro- 
blema 
2100-2280 Comparar resultados 
2290-2660 Presentaci6n de soluciones y 
pasos intermedios dos masas 
2670-2990 Generador de problemas 
2950-3120 Presentaci6n de problema 
3130-3560 Operaciones y entrada de re- 
sultado 
3570-3720 Entrada de datos est6tica 
3730-3830 Presentaci6n de ecuaci6n y 
resultados intermedios ngu- 
Io 
3840-3960 Presentaci6n de ecuaci6n y 
resultados intermedios coefi- 
ciente de rozamiento 
3070-4090 Presentaci6n de ecuaci6n y 
resultados intermedios din(- 
mica una masa 
4100-4180 Escribe datos guardados 

950 IF ang(i)<90 THEN OOTO 1060 
960 IF ni>I THEN MOVE a(i)+812516: 
TAG:PRINT CHR$(231};:TAGOFF 
970 MOVE a(i),IO516:DRAW a(i)+3210 
516:DRAW a(i)+32IO516-25:DRAW a(i) 
,IO16-25:DRAW a(i},10516:MOVER 5,- 
5:FILL I 
98£) MOVE a(i)+I6,12516:DRAWR 0,-351 
6 
990 MOVE a(i),b*16:TAG:PRIT"M";i;: 
TAGOFF 
1000 MOVE a(i)+309I6-30:TAG:PRINT 
"P";i;:TAGOFF 
1010 MOVE a(i)-46916-30:TAG:PRINT 
"R";i;:TAGOFF 
1020 MOVE a(i)+8IO516-25:DRAWR O- 
20:PLOT a(i)+7IO516-44:PLOT a(i)+l 
010516-44 
1030 MOVE a(i)+16, IO516-25:DRAWR 0, 
-20:PLOT a(i)+1510516-44:PLOT a(i) 
+1810516-44 
1040 ka(i,1) a(i)+16:ka(i,2} 12516 
1050 GOTO 1430 
i{)6{) IF ang(i)>O THEN 80T0 118{) 
1070 MOVE ca(i-1),9516-26:DRAW 
i916-26 
1080 MOVE ca(i-l)+(FIX((ca-48)/3)) 
9I6:DRAWR 32O:DRAWR O,-25:DRAWR 
-32O:DRAWR 0,25:MOVER =,u -5:FILL 1 
1090 MOVE ca(i-l)+(2FIX((ca-32)/3 
))+329116-9:TAG:PRINT CHR$(231):T 
AGOFF 

1100 MOVE caS(i-1)+(25FIX((ca-32}/3 
))+32916-9:DRAW caS(i-1)+(FIX((ca 
-48)/3)),916-9 
1110 MOVE caS(i-1)+(FIX((ca-48)/3) 
)6516:TAG:PRINT"M";i;:TAGOFF 
1120 MOVE ca$(i-1)+(FIX((ca-48)/3) 
)+309516-30:TAS:PRINT"P";i;:TAGOFF 
1130 MOVE caS(i-1)+(FIX((ca-48)/3) 
)+169516-25:DRAWR O-20:PLOTR 21 
:PLOTR -4,0 
140 MOVE ca*(i-l)+(FlX((ca-48)/3) 
)-489516+34:TAG:PRINT"N":i;:TAGOFF 
1150 MOVE ca(i-l)+(FIX((ca-48)/3) 
)+I6916:DRAWR O20:PLOT caS(i-l) 
+(FIX((ca-48)/3))+I4,9516+IS:PLOT c 
a(i-1)+(FIX((ca-48)/3))+189516+18 
1160 ka(i1)-c5(i-l)+(2FIX((ca-32 
/3))+40:ka(i2)=916-9 
1170 GOTO 143D 
1180 IF ka(i3) 2 THEN GOTO 1310 
1190 MOVE ca$(i-I)I2516:DRAW cai, 
8516 
1200 MOVE FIX(ca(i-l)+(ca-35)/2)1 
216-FIX(((3116/ca)5(ca-32)/2))-5:D 
RAWR 5 (ca/(3516))$5:DRAWR 30-(((3 
516)/ca)30):DRAWR 
5:DRAWR -30 (((3516)/ca)530):MOVER 
5,5:FILL 1 
1210 MOVE FIX(caS(i-1)+(ca-35)/2),6 
516:TAG:PRINT"M";I;:TAGOFF 
1220 MOVE caS<i-I),I3Ib:TAG:PRINT 
CHR$(231):TAGOFF 
1230 MOVE ca(i-1),I316-G:DRAW ca5 
(i-i)+(((ca-35)/2)+3)1.4,13516-8-( 
4516)/caS((((ca-35)/2)+3)51.4):DRAW 
R -II:DRAWR 0,-3 
1240 MOVER 10,16:TAG:PRINT"R";i::TA 
GOFF 
1250 MOVE FIX(caS(i-1)+(ca-35)/2)+2 
O,1216-FIX(((316/ca)5(ca-32)/2))- 
5+(ca/(3516))55-(((316)/ca)515):DR 
AWR 5 (ca/(1653))5:DRAWR I-I:DRAW 
R -3,0 
1260 MOVER 520:TAG:PRINT"N";i;:TAG 
OFF 
1270 MOVE FIX(caS(i-l)+(ca-35)/2)+l 
512516-FX(((316/ca)5(ca-32)/2))- 
(((316)/ca)53a)-5:DRAWR O-20:PLOT 
R -22:PLOTR 40 
1280 MOVE FIX(caS(i-1)+(ca-35)/2)-1 
711516-FIX(((3516/ca)5(ca-32)/2))- 
15:TAG:PRINT"P";i;:TAGOFF 
1290 ka(1)-ca(i-1)+8:ka(2)-13 
16 
1300 GOTO 1430 
1310 MOVE ca$(i-1),8516:DRAW caSi,1 
2516 
1320 MOVE FIX(ca(i-1)+(ca-25)/2)8 
516+FIX(((4516/ca)(ca-25)/2)):DRAW 
R -5, (ca/(4I61)55:DRAWR 30 ((4516) 
/ca)30:DRAWR 5,-(ca/(4516))55:DRAW 
R -30,-((4516)/ca)530 
1330 MOVER 5,5 :FILL 1 
1340 MOVE FIX(caS(i-1)+(ca-35)/2),6 
$16:TAG:PRINT"M";i;:TAGOFF 
1350 IF i-1 THEN MOVE caSi,13516:TA 
8:PRINT CHR$(231);:TAGOFF ELSE MOVE 
caSi-16,13516:TAG:PRINT CHR$(231); 
:TAGOFF 
1360 MOVE caiI3516-8:DRAW ca(i-1 
(4516)/caS(ca-(ca-25)/2)))O.b:DRAW 
R 2-I:DRAWR Osl 
1370 MOVER -5816:TAG:PRINT"R";i;:T 
AGOFF:PLOTR -5'-13 
1380 MOVE FIX(caS(i-1)+(ca-25)/2)-5 
15.816FIX<((4516/ca)<ca--25)/2)) 
+(ca/(4516))55+((4516)/ca)IS:DRAWR 
-20(416/ca)20:DRAWR 2-2:DRAWR 
-40 
1390 MOVER -48,20:TAG:PRINT"N";i:T 
AGOFF 
1400 MOVE FIX(ca(i-l)+(ca-35)/2}+l 
58516+FIX(((316/ca)(ca-32)/2))+( 
(3516)/ca)530+7:DRAWR O-20:PLOTR 1 
I:PLOTR -3I 
1410 IF i 1 THEN ka(i,l)=caSi ELSE 
ka(i,l)=caSi-8 
1420 ka(i,2)-I3516:MOVE FIX(ca(i-I 
)+(ca-35)/2)+30816+FIX(((316/ca) 
5(a-32)/2))+((3516)/ca)530-10:TAG: 
PRINT"F'";i;:TAGOFF 

1430 NEXT i 
1440 IF n4 0 THEN WINDOW I40I25: 
RETURN 
1450 IF ka(I,3)-2 AND ka(23)-3 THE 
N WINDOW I40, 1,25:RETURN 
1460 FOR i I TO n4 
1470 MOVE pol (i, 1),pol (i,2):TAG:PRI 
NT CHR$(231) ; : TAGOFF 
1480 IF c(i1)<=nl THEN MOVE pol(i. 
l)+8,po] (i,2) :DRAW ka(c(i1)l),ka( 
c(i,I)2) ELSE MOVE pol(il)+8,pol( 
i2):DRAW pol (c(i,1)-n1,1),pol((i 
I)-n12) 
1490 IF c(i,2)<=nl THEN MOVE pol(i, 
1)+8,poi (i,2):DRAW ka(c(i2)1)ka( 
c(i2)2) ELSE MOVE poI (i,1)+8,pol ( 
i2) :DRAW pol (c(i2)-nl, I) ,pol (c(i 
2)-nl,2) 
1500 NEXT i 
1510 WINDOW I40, 1,25:RETURN 
1520 REM ENTRAOA DE MASA,ANGULOS Y 
COEFICIENTES DE ROZAMIENTO 
1530 p2=O 
1540 FOR i=I TO nl 
1550 CLS#2:CLS#4:PRINT#4"Peso de l 
a Masa";i;" en Kg";: INPUT#4 
1560 SOUND I239256:pl 0 
1570 PRINT#2SPC(6) ;"Si quieres que 
la masa este en";SPC(4);SPC(12);"e 
l Suelo pulsa S"SPC(12);SPC(12);"V 
ertlcal pulsa V";SPC(24);"un Piano 
pulsa P";SPC(12);"Ia decision limit 
a el movimiento de la M"; 
1580 e$ INKEY$ 
1590 IF e$ "P" OR e$-"p" THEN p2-p2 
+I:pi=2 ELSE.IF e$-"V" OR e$ "v" TH 
EN pl l:p2=O ELSE IF e$ "S" OR e$-" 
s" THEN pt4:p2-O ELSE GOTO 1580 
1600 IF pi-2 AND p2 2 THEN pl-3:p2 
0 
1610 ka(i,3) pl 
1620 IF pi-1 THEN ang(i)=90 SE IF 
pi=2 OR pi-3 THEN CLS#4: INPUT#4,"A 
ngulo que orma el plano con el sue 
lo"ang(i) ELSE IF pl 4 THEN ang(i) 
=0 
1630 IF p>1 THEN CLS#4:INFUT#4, 
eficiente de rozamlento"coef (i) 
1640 IF ang(i)>90 OR ang(i)<O THEN 
GOTO i&20 
1650 IF ang(i)=90 THEN p1-1:p2=O EL 
SE IF ang(i) 0 THEN pl 4:p2=0 
1660 IF masa(i)<O THEN GOTO 1550 
1670 IF coef(i)<O OR coef(1)>-I THE 
N OOTO 1630 
1680 masa(i) ROUND(masa(i)3) 
1690 coe{i)=ROUND 
1700 ang(i) ROUND(ang(i)3) 
1710 IF pi>I THEN GOSUB 720 
1720 SOUND I190206:NEXT 
1730 RETURN 
1740 REM SALIDA DE DATOS 2 MASAS 
1750 CLS 
1760 h 1 $-" ( M I +M2 ) Ac-Res" +CHR$ ( 253 ) + 
1770 h2$-"Fy?-uerza esterna masa? 
sentido "+CHR$(254+" mov" 
1780 LOCATE 16I:PRINT"NOTACION" 
1790 LOCATE 1,2:PRINT"C=Coeiciente 
de r oz ami ent o" 
IB00 LOCATE I3:PRINT"A=Angulo en g 
rados" 
1810 LOCATE 14:PRINT"Fx?=Fuerza es 
terna en masa? sentido mov" 
1820 LOCATE I5:PRINT h21 
1830 LOCATE I6:PRINT CHR$(253);" e 
s + si Res<O y - si Res>O" 
1840 LOCATE I7:PRINT "g=Gravedad=9 
.81 m/(sg^2) 
185{) LOCATE I8:PRINT "Ac Acelera¢i 
on incognita" 
1860 LOCATE 1,9:PRINT "M?=Masa ? en 
Kg" 
1870 LOCATE 14,10:PRINT 
55" 
1880 LOOATE 14, II:PRINT "SECUACIONE 
IBgO LOCATE 14,12:PRINT "5555555555 
55" 
1900 LOCATE 113:PRINT hi$ 
1910 LOCATE 1,14:PRINT "Res (Mlgsen 
(A1)) +F× i- (M2gsen (A2))-Fx2" 
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1920 LOCATE 115:PRINT "Fuer CIMlgs 
en<A1)÷Fy1+C2M2gsen<A2>-Fx2" 
1930 LOCATE 16,16:PRINT "DONDE" 
1940 LOCATE 1,17:PRINT "Res-resulta 
nte en la direction del may" 
1950 LOCATE 1,IS:PRINT "Fuer Ci.Ni" 
1960 LOCATE 1,19:PRINT "N resultant 
e en la direccion";CHR$(254);"al mo 
v" 
1970 LOCATE 18,20::PRINT "NOTA" 
1980 LOCATE 1,21:PRINT OHR$<253)" 
significa que el roz se opone al mo 
v" 
1990 LOCATE 1,22:PRINT "recordar qu 
e si Res<Fuer entonces Res O" 
2000 LOCATE 124:PRINT "Pulsa C Con 
tinuar" 
2010 e$-INKEY$ 
202(I IF e$<>"C" AND e$<>"c" THEN 20 
10 ELSE RETURN 
2030 REM CUERPO PRICIPAL PONER PROB 
LEMA 
2040 CLEAR :DEG 
2050 GOSUB 2670 
206(I 808UB 910 
2070 GOSUB 2950 
2080 GOSUB 3130 
2090 GOSUB 910 
2100 REM COMPARAR RESULTADOS 
2110 IF gual I AND gua2 I THEN IF A 
BS<ABS(angulo)-ABS(ang<1)))<O.03 TH 
EN GOTO 2150 ELSE GOTO 2240 
2120 IF gua1=1 AND Qua2 2 THEN IF A 
BS(ABS(coez>-ABS(coef<l)))<O.O08 TH 
EN GOTO 2150 ELSE GOTO 224(I 
2130 IF gual-1 AND gua2=3 THEN IF A 

BS<ABS(kop)-ABS((w))<0.02 THEN GOTO 
2150 ELSE GOTO 2240 
2140 IF gual=2 THEN IF ABS(ABS(kop) 
-ABS(fw>)<O.02 THEN 80T0 2150 ELSE 
GOTO 2240 
2150 SOUND 1,235,25,5:80UND 1,200,5 
0,6:SOUND 1170506:SOUND 1,140,75 
,7:CLS#2:CLS#4 
2160 puntos-puntos+5:jl=8:j2 2:LOCA 
TE#2, I,I:PRINT#2,"E1 problema esta 
bien hecho puntos-" 
2170 FOR i=I TO puntos 
218{I j1 jI+I:IF I>40 THEN ]I=1:32 - 
J2+1 
2190 LOCATE#2, j1d2:PRINT#2,"" 
2200 NEXT i 
2210 SOUND 1,20025,6:PRINT#4,"puls 
a 0 otto problema 
pulsa M inicimr el programa" 
2220 e$ INKEY$ 
2230 IF e$-"O" OR e$-"o" THEN 80T0 
2050 ELSE IF e$ "M" OR e$-"m" THEN 
RUN ELSE 80T0 2220 
2240 SOUND I235,25,5:SOUND 1,280,3 
O,6:SOUND 1,310,49,7:SOUND 
225(I CLS#2:CLS#4:PRINT#2,"LO HAS HE 
CHO MAL puls 
a R vet Resultmdo 
pulsa I Intertarlo d nuevo 
pulsa M iniclar programa" 
2260 e$=INKEY$ 
2270 IF e$<>"R" AND e$<>"r" THEN 80 
TO 2280 ELSE IF ni-1 THEN GOTO 530 
ELSE IF nl-2 GOTO 350 
2280 IF e$ "I" OR e$="i" THEN GOTO 

VARIABLES 

MASA (?) 
ANG (?) 
COEF (.) 
Fx? 
Fy? 
A (?) 
C (?,2) 
POL 
CA 
ajg 
ka (?,I .3) 

nl 
n4 
NM1 
NM21 

NM 
PI 

P2 

KOP 
KOPI 
KOP2 
ACi 
ANA 

Valor de la masa g. en Kg 
Valor del 6ngulo . en grados 
Valor del coeficiente de roza- 
miento . 
Fuerza en la direcci6n del mo- 
vimiento 
Fuerza en la direcci6n per- 
pendicular al movimiento 
Coordenada horizontal masa 
? 
Distancia entre las . masas 
Conexiones de la polea ? 
Guarda las coordenadas de 
la polea 
Distancia reservada para di- 
buio de cada masa 
Indica modo de ventana 0 
Coordenadas donde se unir6 
la polea y %0 de suelo 
N0mero de masas 
NOmero de poleas 

Generan la sucesi6n de pan- 
tallas de la cabecera 

Dice si se pulsa vertical, pia- 
no o sueJo 
Dice si el anterior ha sido pia- 
no inclinado 

Utilizadas en los c61culos 

RES 
FUER 
GUA1 

GUA2 
VEA 

MODU 
fNGU 
LOLA1 
LOLA2 
ANGULO 
FWI 

COEZ 
PUNTOS 

J2 
$1 
OPER 
OPERA 
OPER1 
OPER2 
NOMBS 

Tipo de problema una o dos 
masas 
Tipo de problema una mosa 
Dice si el problema generado 
tiene soluci6n num6rica 

Empleadas en la construcci6n 
de fxl, fx2, fyl, fy2 

Guardan la soluci6n que da 
el usuario 

Los puntos que saca el usua- 
rio, 5 puntos problema bien 
hecho 
Marcan los posiciones de los 
* que indican los puntos que 
has hecho 
Informa de si se ha pedido 
6ngulo o coeficiente 
Guarda los valores num6ricos 
que quieras 
Valor de la operaci6n realiza- 
da 
Valor primer operando 
Valor segundo operando 
Nombre del data que guar- 
das 

2050 ELSE IF e$-"M" OR e$ "m" THEN 
RUN ELSE GOTO 2260 
2290 REM PRESENTACION DE REULTADO Y 
PASOS INTERMEDIOS DOS MASAS 
2300 CLS 
2310 h15="(M1+M2)Ac=Res"+CHR$(253)+ 
2320 h2$="Fy?=fuerza esterna masa9 
sentido "+CHR$(254)+" may" 
2330 LOCATE 14,10:PRINT 
234{I LOCATE 1411:PRINT "*ECUACIONE 
2360 LOCATE 113:PRINT hi$ 
2370 LOCATE I14:PRINT "Res (M1gsen 
(A1))+Fx1-(M2gsen(A2))-Fx2" 
2380 LOCATE 1,15:PRINT "Fuer-CIMlgs 
en(A1)+Fy1+C2M2gsen(A2)-Fx2" 
2390 LOCATE 16,16:PRINT "DONDE" 
2400 LOCATE I17:PRINT "Res=resulta 
nte en la direction del mov" 
2410 LOCATE IIS:PRINT "Fuer Ci.Ni" 
2420 LOCATE 1,19:PRINT "N=resultant 
e en la direccion";CHR$(254);"al mo 
2430 LOCATE 1820::PRINT "NOTA" 
2440 LOCATE 1,21:PRINT CHR$(253);" 
signiica que el roz e opone al mo 
v" 
2450 LOCATE 1,22:PRINT "recordar qu 
e si Res<Fuer entonces Res=O" 
2460 g25=" Res- ( " : g55=" $ "+ "9. S" : g65- 
247(I g3$-"Fuer ":gg$="*(":glO$="$"÷ 
2480 res masa(1)$9.81+xl-masa(2)*9 
.81-x2fres ROUND(rest3) 
2490 uer coef(1)$(masa(1)9.81+÷yl 
)+coe(2)$(masa(2)*9.81+y2):uer=R 
OUND(fuer3) 
2500 LOCATE 1,3: PRINT "("lmasa(1); 
"+";masa(2);")";"Ac=";res;CHR$(253) 
uer 
2510 LOCATE 1,1:PRINT"RESULTADOS IN 
TERMEDIOS" 
2520 LOCATE 1,5: PRINT g2$;masa(1); 
g5$"+";×1|g6$;masa(2);g5$;"-";x2 
253{I LOCATE 1,6:PRINT g3$;coe(1);g 
95;masa(1);g105;"+";yl;g115;coef(2 
);gg$masa(2);g105;"+";y2;g1151g15 
$ 
2540 IF ABS(res)<ABS(uer) THEN res 
-0 ELSE IF res<O THEN res res+uer 
ELSE res res-uer 
2550 LOCATE#4, 1,3:PRINT#4,"pulsa C 
2560 e$ INKEY$ 
2570 IF e$<>"C" AND e$<>"c" THEN 80 
TO 2560 
2580 GOSUB 910 
259(I LOCATE#2, 15,1:PRINT#2,"RESULT 
ADDS" 
2600 ana res/(masa(1)+masa(2)):ana = 
ROUND(aria,3). 
2610 LOCATE#2 1,5.PRINT#2,"La acle 
ration de la masal es ";USING"###. 
###"ana 
2620 LOCATE#2, I4:PRINT#2,"La cle 
racion de la masa2 es-":USING"###.# 
##"-1$ana 
2630 LOCATE#4, 1,3:PRINT#4,"pulsa V 
Uolver a empezar" 
2640 e$ INKEY$ 
2&50 IF e$="V" OR e$ "v" THEN GOTO 
2660 ELSE 2640 
266{I RUN 
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2670 REM GENERADOR DE PROBLEMAS 
2680 RANDOMIZE TIME 
2690 vea=O 
2700 FOR i=I TO 2 
2710 ang(i) RND*90:anq(i) ROUND(ang 
2720 IF ang(i)=O THEN ka(i,3)-4 ELS 
E IF ang(i)=90 THEN ka(i,3)=l ELSE 
IF i=1 THEN ka(i,3)=2 ELSE ka(i,3)- 
3 
2730 coef (i)=RND:coef (i)-ROUND(coef 
(i),4) 
2740 masa(i) RND100:nasa(i) ROUND( 
nasa(i),3) 
2750 IF masa(i)-O THEN vea=1 
2760 NEXT i 
2770 IF yea 1 THEN GOTO 2690 
2780 fxl=RND*1Otg.8:fxl ROUND(fxl,3 
2790 f×2=RNDIO:9.8:Tx2 ROUND(fx2,3 
) 
2800 fyI-RND*9.8:fyI-ROUND(fyl,3) 
2810 fy2-RND$9.8:fy2=ROUND(fy2,3) 
2820 gual RNDt100 
2830 gua2 RNDIO0 
2840 IF gua1<25 THEN gual 2:gua2 0 
ELSE IF gua2<66 AND gua2>33 THEN gu 
a1=1:gua2 I ELSE IF gua2<33 THEN gu 
al=l:gua2 2 ELSE IF gua2>66 THEN gu 
a1-1:gua2-3 
2850 sl gua2:nl-gual:n4-nl-1 
2860 IF gual I THEN nasa(2) O:ang(2 
)-O: coef (2) O:fx2 O:fy2-O 
2870 IF n4-1 THEN pol(1,1)-b(2)+(b( 
2)+32)/2:poi(1,2)-16516:c(1,1)=i:c( 
1,2)=2 
2880 IF gual 2 THEN kopl (nasa(1)9 
.81SIN(ang(1))+fx1-nasa(2)*9.81SI 
N(ang(2))-fx2):kop2-coeT(1)(nasa(1 
)9.81COS(ang(1))÷fy1)+coef(2)$(na 
sa(2)9.B1COS(ang(2))+fy2):kop1 RO 
UND(kopl,3):kop2-ROUND(kop2,3) 
2890 IF gua1=l AND gua2 3 THEN kopl 
=masa(1)9.81*SIN(ang(1))÷fx1:kop2= 
coef(1)(nasa(1)9.81COS(ang(1))+÷ 
yl):kop1=ROUND(kopl,3):kop2=ROUND(k 
op2,3) 
2900 IF gua1=2 THEN IF ABS(kopl)<ko 
p2 THEN kop-O ELSE kop (ABS(kopl)-k 
op2)/(nasa(1)+masa(2)) 
2910 IF gua2 1 THEN ang(1)-ATN(cme÷ 
(1)):ang(1)=ROUND(ang(1),3) 
2920 IF gua2-2 THEN IF (masa(1)$9.8 
$SIN(ang(1))+xl)>(nasa(1)9.8:COS( 
ang(1))+yl) THEN 80T0 2700 
2930 IF gua2 2 THEN coe(1) (nasa(1 
)*9.8SIN(ang(1))+xl)/(masa(1)9.8 
COS(ang(1))+÷yl):coe(1)-ROUND(coe 
f(1),4) 
2940 RETURN: 
2950 REM PRESENTACION PROBLEMA 
2960 CLS#2:CLS#4 
2970 IF gual-I AND gua2 2 THEN LOCA 
TE#2I,2:PRINT#2"MASA ";nasa(1):LO 
CATE#2I,3:PRINT#2,"ANSULO-"ang(1) 
:LOCATE#2I4:PRINT#2,"fuer. adicon 
al sentido nov.-";xl 
2980 IF gual I AND gua2=2 THEN LOCA 
TE#2,1,5:PRINT#2"uer. adiconal se 
ntido per nov. ":yI:LOCATE#2I,I:P 
RINT#2SPC(17)"DAOS" 
2990 IF gua1-1 AND gua2 I THEN LOCA 
TE#2I,2:PRINT#2."MASA="nasa(1)LO 
CATE#2I,3:PRINT#2"COEFICIENTE DE 
RO2AMIENTO-"coe(I:LOCATE#2I,I:P 
RINT#2,SPC(17)"DATOS" 
3000 IF gual I AND gua2-3 THEN LOCA 
TE#2,12:PRINT#2"MASA="masa(1)"A 
NSULO-"ang(1):LOCATE#2,1,3:PRINT#2 
"COEFICIENTE DE ROZAMIENTO=;coef(I 
):LOCATE#2, II:PRINT#2,SPC(17"DAT 
US" 
3010 IF gual I AND gua2 3 THEN LOCA 
TE#2,1,4:PRINT#2"uerza sentido mo 
vimiento "xl 
3020 IF gual-1 AND gua2-3 THEN LOCA 
TE#2,1,5:PRINT#2,"uerza perpendlcu 
far novimiento "yl 
3030 IF gual 2 THEN LOCATE#2, I,I:PR 
INT#2SPC(17)"DATOS":LOCATE#212: 
PRINT#2,"MASAI=";nasa(1):LOCATE#2,2 
O2:PRINT#2"ANGULOI=";ang(1):LOCAT 

E#2,1,3:PRINT#2,"MASA2="nasa(2) 
3040 IF gual=2 THEN LOCATE#2,20,3:P 
RINT#2,"ANGUL02 ";ang(2) 
3050 IF gual-2 THEN LOCATE#2I4:PR 
INT#2"COEFICIENTE DE ROZAMIENT01-" 
coe(1):LOCATE#2,15:PRINT#2"COEF 
ICIENTE DE ROZAMIENT02 ";toe÷(2) 
3060 PRINT#4"pulsa C Continuar" 
3070 e$-INKEY$:IF e$<>"C" AND e$<>" 
c" AND gua1=2 THEN GOTO 3070 
3080 IF gual=2 THEN LOCATE#2,1,2:PR 
INT#2,"uer. adiconal sentido movl= 
"!xI:LOCATE#2,1,3:PRINT#2,"uer. a 
diconal sentido per nov1.=";y1:LOC 
ATE#2,1,4:PRINT#2,"uer. adiconal s 
entido mov2="÷x2 
3090 IF gual 2 THEN LOCATE#2,1,5:PR 
INT#2,"uer. adiconal sentido per n 
ov2.-";fy2 
3100 IF gual=2 THEN PRINT#4,"pulsa 
C Continuar" 
3110 e$=INKEY$:IF e$<>"C" AND e$<>" 
c" THEN GOTO 3110 
3120 RETURN 
3130 REM OPERACIONES Y ENTRADA DE R 
ESULTADOS 
3140 FOR i-I TO 5:nonb$(i) " ":oper 
(1)=O:NEXT i 
3150 WINDOW#5I,I7,6,21:CLS#5 
3160 WINDOW#1,19,406,12:CLS#1 
3170 WINDOW#3,19,40,14,21:CLS#3 
3180 FOR I 6 TO 21:LOCATE 18,i:PRIN 
T"":NEXT 
3190 FOR i 19 TO 40:LOCATE i,13:PRI 
NT"" : NEXT i 
3200 GOSUB 4100 
3210 CLS#4: PRINT#4,"pulsa V Vet da 
tos pulsa 0 r 
ealizar Operaciones puls 
a R escrlbir Resultado" 
3220 e$=INKEY$ 
3230 IF e$-"V" OR e$="v" THEN GOSUB 
2950:80T0 3150 ELSE IF e$="O" OR e 
$="o" THEN GOTO 3290 ELSE IF e$<>"R 

! 

" AND e$<>"r" THEN GOTO 3220 
3240 CLS#5:CLS#1 
3250 IF gual I AND gua2 1 THEN INPLJ 
T#5"ANOULO-"angulo:angulo-ROUND(a 
ngulo,3) 
3260 IF gua1-1 AND gua2=2 THEN INPU 
T#5"COEFICIENTE DE ROZAMIENTO " 
;coez:coez-ROUND(coez,3) 
3270 IF gua2=3 OR gual-2 THEN INPUT 
#5,"ACELERACION="fw 
3280 RETURN 
3290 LOCATE#5,12:PRINT#5" + SUMAR 
":LOCATE#5,1,4:PRINT#5" - RESTAR": 
LOCATE#5,1,6:PRINT#5," i MULTIPICA 
R":LOCATE#5,18:PRINT#5," / DIVIDIR 
":LOCATE#5I,IO:PRINT#5," S SENO":L 
OCATE#5I,12:PRINT#5," C COSENO":LO 
CATE#5,1,14:PRINT#5," A ARCOTANGENT 
E" 
3300 CLS#4:PRINT#4,"HABO LAS OPERAC 
IONES DE UNA EN UNA 
pulsa 
la operaclon que queries realizar" 
3310 e$ INKEY$ 
3320 IF e="t" THEN LOCATE#I,I,3:IN 
PUT#1,"METE MULTIPLICANDO"operai:C 
LS#1:LOCATE#1I.,6:PRINT#1,operal"$" 
:LOCATE#1,1,3:INRUT#1,"METE MULTIPL 

ICADOR",opera2:oPera opera1*opera2: 
opera=ROUND (opera 4) : CLS#1 : LOCATE# 1 
 I, 6:PRINT#1  operal"$"opera2"="oper 
a 
3330 IF e$-"*" THEN GOTO 3410 
3340 IF e$="/" THEN LOCATE#1,1,3:IN 
PUT.# 1, "METE D I V I DENDO" , opera I : CLS# I 
: LOCATE#I, I, 6: PRINT#I operal"/" : LOC 
ATE#I, I3:INPUT#I,"METE DIVISOR",op 
era2:opera operal/opera2:opera-ROUN 
D (opera, 4) : CLS#1: LOCATE#I, I, 6: PRINT 
# I  operal "/"opera2"="opera: GOTO 341 
0 
3350 IF e$ "÷" THEN LOCATE#1,1,3:IN 
PUT#1,"METE SUMAND01= ",opera1:CLS#1 
:LOCATE#l, 1.6:PRINT#1,operal "÷ ":LOC 
ATE#I, 1,3: INPUT#1,"METE SUMAND02 ", 
oper a2: oper a=oper a 1+oper a2: oper a-RO 
UND (opera 4) : CLS#1 : LOCATE#1, I, 8: PRI 
NT#1,operal"+"opera2" "opera:GOTO 3 
410 
3360 IF e$ ...... THEN LOCATE#1, 1,3: IN 
PUT#1,"METE MINUENDO",operaI:CLS#1: 
LOCATE# I  il, 6: PR I NT# I, opera I "-" : LOCA 
TE#1, I3: INPUE#1,"METE SUSTRAENDO", 
opera2:opera operal-opera2:opera-RO 
UND(opera,4i:CLS#1:LOCATE#I, 1,6:PRI 
NT#1, opera1"-"opera2"="opera: GOTO 3 
410 
3370 IF e$="S" OR e$="s" THEN LOCAT 
E#1, 1,4: INPUT#1 "METE ANGULO",opera 
1:opera SIN(operal) :opera-ROUND(ope 
ra,4) :CLS#1:LOCATE#1 1,8"PRINT#1 "S 
EN ( "oper al " ) -"opera: 80T0 3410 
3380 IF e$-"c" OR e$ "C" THEN LOCAT 
E#I. 1,4: INPUT#I,"METE ANGULO",opera 
I ." opera=COS (operal) : opera-ROUND (ope 
ra,4):CLS#1:LOCATE#1, 1.8:PRINT#1"C 
US ( "operal " )-"oper a: GOTO 3410 
3390 IF e$-"A" OR e$-"a" FHEN LOCAT 
E#I 1,4: INPUT#1, "METE TANGENTE "ope 
ra1".opera ATN(operal):opera ROUND(o 
pera 4) : CLS#1 : LOCATE#1  I, 8: PRINT#1 
"ARCTG("operal") "opera :GOTO 3410 
3400 GOTO 3310 
3410 LOCATE#1, I, 12".PRINT#1s"guardo 
el dato S/N" 
3420 k-O:wl=O 
3430 e$ INKEY$ 
3440 IF e$ "S" OR e$-"s" THEN GOTO 
3450 ELSE IF e$-"n" OR e$="N" THEN 
GOTO 3150 ELSE GOTO 3430 
3450 wl=O 
3460 w2=w2+1: IF w2>8 THEN GOTO 3500 
3470 LOCATE#1, 1,8: INPUT#1,"pulsa el 
nonbre qu.e quieres 5 letras";nonb$ 
(w2) :w1=l  
3480 oper (w2) opera 
3490 IF wi-I THEN GOTO 3150 
3500 FOR i 2 TO 8 
3510 oper (i-1) =oper (i) 
3520 nomb$(i-1)-nomb$(i) 
3530 NEXT i 
3540 LOCATE#1 I,S: |NPUT#1,"pulsa el 
nombre que quieres 5 letras";nomb$ 
(8) : w2-8 
3550 oper (8) =opera 
3560 GOTO 3150 
3570 REM ENTRADA DE DATOS ESTATICA 
3580 SOUND 1,239256:pI-0 
3590 IF sl I THEN GOTO 3670 
3600 PRINT#2,SPC(6)"$1 quieres que 
la nasa este en";SPC(4);SPC(12);"e 
l Suelo pulsa S";SPC(12);SPC(12);"V 
ertical pulsa V"SPC(24);"un Piano 
pulsa P".SPC(12);"la decision linit 
a el noviniento de la 
3610 e$ INKEY$ 
3620 IF e$="P" OR e$ "p" THEN p2-p2 
+I:pi-2 ELSE IF e$ "V" OR e$="v" TH 
EN p1=1:p2-O ELSE IF e$ "S" OR e$-" 
s" THEN pl-4:p2-O ELSE SOTO 3610 
3630 IF pl 2 AND p2=2 THEN p1=3:p2= 
0 
3640 IF p1-I THEN ang(1) 90 ELSE IF 
pl 2 OR pi=3 THEN CLS#4:INPUT#4,"A 
ngulo ue fona el piano con el sue 
lo",ang<1):ang(1) ROUND(ang(1),3) E 
LSE IF pl 4 THEN ang(1) 0 
3650 IF ang(1)>90 OR ang(1)<O THEN 
GOTO 3640 
3660 IF ang(1)-90 THEN p1=1:p2=O EL 
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SE IF ang(1) 0 THEN pl-4:p2=O 
3670 IF si<>2 THEN CLS#4:INPUT#4,"C 
oeiciente de rozamiento",coef(1):c 
oef(1) ROUND<coe<I),4) 
3680 IF coe(1)>-I OR coe(1)<O THE 
N IF sI<>2 THEN GOTO 3670 
3690 CLS#4:PRINT#4,"Pes de la Masa 
1 en Kg":INPUT#4masa(1):masa(1)= 
ROUND(masa(I,3) 
3700 IF masa(1),O THEN GOTO 3690 
3710 IF sl 2 THEN GOSUB 720 
3720 RETURN 
3730 REM PRESENTACION DE ECUACIONES 
Y RESULTADOS INTERMEDIOS ANGULO 
3740 CLS:LOCATE 14,2:PRINT"% 
ECUACION 
3750 LOCATE 16:PRINT"Angulo-arctg( 
Coeiciente de rozamiento)" 
3760 LOCATE 
$$%$*%% % RESUL 
TADOS INTERMEDIOS 
3770 ang(1)=ATN<coef (1)):LOCATE 1,1 
3:PRINT"Angulo-actg("coe(1)")" 
3780 LOCATE 18,16:PRINT"DATOS" 
3790 LOCATE 118:PRINT"Coeiciente 
de rozamiento-"coe(1) 
3800 LOCATE IIg:PRINT"MASA "masa(l 
) 
3810 PRINT#4,"pulsa C Continual" 
3820 e$=INKEY$ 
3830 IF e$<>"C" AND e$<>"c" THEN GO 
TO 3820 ELSE RETURN 
3840 REM PRESENTACION DE ECUACIONES 
Y RESULTADOS INTERMEDIOS COEFICIEN 
TE DE ROZAMIENTO 
3850 CLS:CLS#4:LOCATE 14,2:PRINT"% 
% ECUACION 
3860 LOCATE 1,7:PRINT"Coe;cente d 
e rozamiento es igual C- (M9.SIs 

en(ang)+Fxl)/(M9.81cos<ang)+yl) 
3870 LOCATE 
TADOS INTERMEDIOS 
3880 LOCATE 1,14:PRINT"EI coefiente 
de rozamiento C es igual C-("mas 
a(1)"9.SlSsen("ang(1)")+"xl") /(" 
masa(1)"%9.81cos<"ang<1)")+"y1")" 
3890 LOCATE 18,17:PRINT"DATOS" 
3900 LOCATE 1,18:PRINT"MASA-"masa(I 
) 
3910 LOCATE 119:PRINT"Angulo "ang( 
I) 
392{I LOCATE 1,20:PRINT"Fuerza perpe 
ndicular al mov Fyl="yl 
3930 LOCATE 1,21:PRINT"Fuerza direc 
cion del mov Fxl-"xl 
3940 PRINT#4,"pulsa C Contlnuar" 
3950 e$=INKEY$ 
3960 IF e$<>"C" AND e$<>"c" THEN 80 
TO 3950 ELSE RETURN 
3970 REM PRESENTAGION DE ECUACIONES 
Y RESULTADOS DINAMICA DE I MASA 
3980 CLS:CLS#4:LOCATE 14,2:PRINT"%$ 
$ ECUACION 
3990 LOCATE I7:PRINT"MASAACELERAC 
ION-M%9.81sen(ang)+Fx1";CHR$<253); 
"C(M9.81%cos(ang)+yl)" 
4000 LOCATE 
$%%151%%% $$ RESUL 
TADOS INTERMEDIOS 
4010 LOCATE I 14:PRINT masa1)"%AC= 
"masa (I) ",9.8%sen ("ang (I) ") " ; CHR$ (2 
53):coef <I) "("masa(1) "$9.815cos("an 
g(1)")l" 
4020 LOCATE 10,17:PRINT"DATOS" 
4030 LOCATE 1,18:PRINT"MASA "masa(l 
),"Angulo="ang(1) 
4040 LOCATE 119.:PRINT"Coeficiente 
de rozamiento-"coef(1) 

4050 LOCATE 1,20:PRINT"Fuerza perpe 
ndicula al mov Fyl "fyl 
4060 LOCATE 121:PRINT"Fuerza direc 
cion del mov Fxl "fxl 
4070 PRINT#4"pulsa C Continuar" 
4080 e$ INKEY$ 
4090 IF e$<>"C" AND e$<>"c" THEN GO 
TO 4080 ELSE RETURN 
4100 REM ESCRIBE DATOS GUARDADOS 
4110 WINDOW#3Ig.40,14,21.CLS#3:w1= 
0 
4120 FOR i-I TO 8 
4130 IF wl I THEN GOTO 4170 
4140 IF oper(i)-O THEN wl I:GOTO 41 
70 ELSE wl 0 
4150 LOCATE#3.3.i:PRINT#3,nomb$(i): 
LOCATE#39, i:PRINT#3,"="oper() 
4160 w1=0 
4170 NEXT i 
4180 RETURN 
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i est6s interesado en algOn n0mero de los 
ya publicados por Microhobby Amstrad, rea- 
liza hoy mismo tu pedido porque ya hay algunos 
ejemplares agotados. 

No pierdas la oportunidad de disponer de la mejor 
obra publicada sobre ordenadores Amstrad. En todos 
sus n0meros encontrar6s interesantes articulos de inicia- 
".. "  ci6n, pokes, trucos, curso de c6digo m6quina, etc... 
jNo te pierdas detalle! 
Recorta o copia el cupdn que aparece cosido en los pdginas 
de la reista, 



INTER 
GAMES 

La Olimpiada Blanca nos 
abre sus puertas. $obre la 
nieve y el hielo, los 
atletas medir6n sus 
fuerzas en pos de la 
medalla de oro. 

de la primera 
edici6n de los Juegos de In ,ierno en 
Chamonix (Francia) en el ao 1924, 
esta competici6n se ha celebrado 15 
veces, la Oltima en Sarajevo (Yugos- 
lavia). 
La pr6xima edici6n de los juegos 
tendr lugaren el ao 1988, yla se- 
de ser6 la ciudad de Calgary, en Ca- 
nad6. Es precisamente esta edici6n 
de los Juegos de Invierno la que se 
convierte en protagonista de un pro- 
grama para ordenador. 
Tomando como base de la compe- 
tici6n ocho deportes, la casa Epix ha 
desarrollado un programa en el que 
la nieve sirve de marco incompara- 
ble a la competici6n entre los mejo- 
res deportistas de todo el mundo. 
El programa est contenido en dos 
cassettes, de forma que cada cara 
agrupa dos pruebas distintas, que- 
dando distribuidas las mismas de la 
siguiente manera: 

Cara 1 .- Bobsled y esqu acrobtico. 
Cara 2.- Velocidad sobre patines y 
saltos de esqui. 
Cara 3.- Patinaje artstico y patinaje 
estilo libre. 
Cara 4.- Esqui de fondo y tiro con ri- 
fle. 
Tambin existe una versi6n en dis- 
co, que, adem6s de contener las dis- 
tintas pruebas, incluye la ceremonia 
de apertura de los juegos, con el en- 
cendido de la llama olimpica y la 
suelta de palomas. 
Esta versi6n permite la competici6n 
en todos los juegos, con Io que po- 
demos desafiar a varios amigos en 
las distintas disciplinas deportivas, 
para ver quin es el que consigue 
m6s medallas a Io largo de toda la 
olimpiada. 
La versi6n de cassette, por la dis- 
tribuci6n de los deportes en las dis- 
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tintas caras, s61o permite la compe- - 
tici6n simult6nea en un mximo de i.- ._ ':: 
 .. ',D.J/. 4,,4  dos pruebas. 
..,,,,-. .. 
 Como el dominio de Jas disfintas ' 

disciplinas no es fcil, existe la posi- 
bilidad de practicar un juego deter- 
minado, Io que tras sucesivos inten- 
tos, nos permitirc mejorar nuestro es- 
tilo en este deporte. 
En las distintas competiciones, pue- 
den practicar desde uno hasta cua- 
tro jugadores, cada uno de los cua- 
les puede elegir entre jugar con te- 
clado o con joystick. 
Una vez encendido el fuego olim- 
pico y concluida la ceremonia de 
apertura, nos encontramos de Ileno 
en la primera competici6n. 
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Bobsled 

Puestos al volante de nuestro des- 
lizador, debemos mantener la tra- 
yectoria en la pista sin chocar con- 
tra los bordes. La gran velocidad a 
la que nos lanzamos por ella puede 
hacernos volcar si no tomamos las 
curvas con precisi6n. 
El conocimiento del circuito es de 
gran importancia para anticiparnos 
alas curvas; por la elevada veloci- 
dad, 6stas aparecen repentinamen- 
te, y cualquier retraso en mover el ti- 
m6n puede sacarnos de la pista. 
El mejor tiempo en el recorrido se- 
r6 el que decida la medalla de oro. 
En esta prueba la pantalla se en- 
cuentra dividida en dos secciones, en 
una de las cuales aparece una vista 
a6rea del circuito con la posici6n que 
ocupamos en 61, yen la otra vemos 
nuestro vehiculo por detr6s y la sec- 
ci6n transversal de la pista. 
Cada vez que entramos en una 
curva, la pista cambia de color y 
nuestro bobsled es empujado hacia 
la parte alta por la inertia. 

Esqu acrob6tico 

Estamos en una prueba donde la 
habilidad es de vital importancia. 
Lanzados por una pendiente entra- 
mos en un trampolin natural el cual 
nos eleva en el aire; el fuerte desni- 
vel existente nos deja espacio sufi- 
ciente para realizar durante el vue- 
Io las figuras deseadas. 
Disponemos de seis piruetas dife- 
rentes para realizar: el bot6n de dis- 
paro del joystick nos lanza hacia el 
trampolin, y una vez en el aire efec- 
tuamos el movimiento elegido. Cuan- 
do caemos a tierra, la posici6n cen- 
tral del joystick nos har6 caer en po- 
slci6n vertical. 
Los movimientos cl6sicos del esqui 
acrob6tico est6n representados; po- 
demos ejecutar la coz de mula, el chi- 

flado, la vuelta hacia atr6s, la vuel- 
ta adelante, el cisne y el rasgado. 
Cuando adquiramos la suficiente 
destreza podremos realizar varias pi- 
ruetas en el mismo salto, Io que 
aumentar6 considerablemente nues- 
tra puntuaci6n. 
En esta competici6n, hay que des- 
tacar la perfecci6n del movimiento 
del esquiador y la gracia de las pi- 
ruetas que ejecuta, las cuales se ajus- 
tan exactamente a la realidad. 

Patlnaje de velocidad 

Nuestro patinador, en posici6n 
aerodin6mica, espera la orden de 
salida. En la otra pista nuestro adver- 
sario intentar6 batirnos por todos los 
medios; el que consiga imprimir ma- 
yor velocidad a sus patines ser6 el 
vencedor. 
Cuando se da la salida, empeza- 
mos a mover las piernas de nuestro 
patinador: tirando del joystick a iz- 
quierda y derecha Ilevamos el ritmo 
de las zancadas. 
Para Iograr un buen deslizamien- 
to sobre la pista, debemos aprove- 
char adecuadamente el impulso de 
cada zancada. Si nos retrasamos o 
adelantamos, al final del movimien- 
to de cada pierna perdemos veloci- 
dad. 

Para poder vencer a nuestro ad- 
versario, debemos salir m6s despa- 
cio, aumentando paulatinamente el 
ritmo de nuestras zancadas, hasta 
conseguir aprovechar al m6ximo el 
impulso de cada patin y elevar el rit- 
mo a una velocidad aceptable. 
Cualquier fallo en la coordinaci6n 
de los movimientos nos resta velocio 
dad, haciendo que tengamos que re- 
cuperar de nuevo el ritmo que Ilev6- 
bamos. 



Salto de trampoln 

Nos encontramos en Ja parte su- 
perior de Ja rampa e saJfos; cuan- 
do no an la alia nuesfros brazos 
dan un fuerte tir6n y comenzamos el 
cJeslizamienfo. 
Adopfamos una posici6n baia o- 
bJ6nc]onos sobre nuestras rodillas, cJe 
forma que nuestro cuerpo ofrezca Ja 
menor oposiciOn al aire y aJcance- 
mos una velocidad m6s grancJe. 
Esfa posfura se aguanta basra el 
6It]too momenfo, en eJ que aJ JJegar 
I horde cJeJ frampoJin un en@rgico 
tir6n deJ cuerpo nos lanza aJ aire. 
Ahora nuesfra posici6n es total- 
menfe istinfa; esfamos exfendidos 
con Jos esquies paraJeJos al cuerpo, 
pJaneancJo sobre la nieve. AI final, 
ofro fir6n cJeJ cuerpo nos bar6 afe- 
rrizar sobre la bJanca masa, marcan- 
do la distancia de nuestro salto. 
En las pruebas de salto de trampo- 
lin, se califican tanto los metros al- 
canzados en el salto, como el estilo 
del vuelo; cualquier p6rdida de la 
posici6n paralela a los esquies, nos 
hate perder Iongitud de salto y pe- 
naliza nuestro estilo. 
Para realizar un buen salto, debe- 
mos hater una buena salida del 
trampolin, aprovechando al m6ximo 
el impulso del deslizamiento. Luego, 
en el vuelo, deberemos mantener la 
posici6n paralela de los esquies du- 
rante toda la duraci6n de 6ste, co- 
rrigi6ndola con el joystick si no esta- 
mos en la posici6n 6prima. 
Podemos extender las rodillas, 
adelantar el cuerpo o retrasarlo, y 
nivelar los esquies de forma que se 

mantengan paralelos: el jurado de 
estilo estar6 atento a nuestra forma 
de controlar el vuelo. 
A la hora del contacto con la nie- 
ve, una fuerte flexi6n de piernas 
acompaada de la extensi6n de los 
brazos, nos hace tomar tierra sin 
perder el equilibrio. 

Patinaie art(stico 

Estamos en el programa corto, 
donde, en el tiempo de un minuto te- 
nemos que realizar seis movimientos 
obligatorios: Camel, Giro Sentado 
Doble Axel, Triple Axel, Doble Lutz, 
Triple Lutz, Camel con Giro Sentado. 
El orden en que debemos efectuar 
las distintas figuras es completamente 
indiferente, Io importante es enlazar- 
los convenientemente y realizarlos 
con la mayor perfecci6n posible. 
En la modalidad de patinaje, don- 
de destacan los grandes estilistas, no 
cuenta la espectacularidad, ni la ins- 
piraci6n que presiden en el estilo li- 
bre; Io requerido es un dominio to- 
tal de la t6cnica y una perfecta eje- 
cuci6n de las figuras. 
Debemos manejar el joystick con 
sensibilidad y precisi6n; cada figura 
que iniciamos debe ir acompaada 
de la pulsaci6n del bot6n de dispa- 
ro en el movimiento adecuado, de la 
misma forma hemos de acabar el 
movimiento correctamente sin caer- 
nos. 
Es muy imporfanfe empezar un 
movimienfo con Jas piernas en la po- 
sici6n correcfa, de Io confrario nues- 
fra caicJa ser6 segura: focJo depen- 
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de de la pulsaci6n del bot6n de fue- 
go. 
Durante todo nuestro ejercicio, el 
jurado toma nota de nuestros movi- 
mientos, calificando la ejecuci6n y 
penalizando los errores. 
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Cada caida resta 0.7 puntos y ca- 
da movimiento mal ejecutado 0.2; la 
figura que m6s puntga es el Camel 
Agachado con 1.2, y la m6xima pun- 
tuaci6n total es de 6.0 puntos, que 
corresponderia a un ejercicio perfec- 
to. 

Estilo libre 

Estamos en la prueba m6s espec- 
tacular y vistosa del patinaje; en ella, 
la gracia en la ejecuci6n, la t6cnica, 
el riesgo y la belleza se unen para 
deleitar al pOblico. 



Disponemos de dos minutos para 
realizar el ejercicio: en nuestra ima- 
ginaci6n preside el encadenamiento 
de las distintas figuras, haciendo que 
la mOsica se funda con el movimien- 
to en una recreaci6n artistica de in- 
negable belleza 
Para alcanzar el m6ximo de pun- 
tuaci6n, debemos realizar tres veces 
cada figura, procurando ejecutar 
dentro del tiempo los tres intentos de 
lantos movimientos dificiles como nos 
sea posible. 
Las penalizaciones por caida son 
0.5 puntos, y 0.2 por movimiento de- 
fectuosamente ejecutado. 
El m6ximo de puntos posibles es de 
6.9. 

Esqu/ de rondo 

Estamos en una prueba donde re- 
sistencia y buena punteria se unen. 
Debemos efectuar un recorrido de 
rondo sobre nuestros esquies, y dis- 
parar con el fusil a los cinco blancos 
que encontraremos a Io largo de la 
pista. 
El tiempo empleado en completar 
el recorrido, es el que decide el cam- 
pe6n de la prueba; cada fallo al dis- 
parar sobre un blanco aumenta el 
tiempo del corredor en cinco segun- 
dos. 
Con el joystick, dirigimos el movi- 
miento de piernas del esquiador. En 
esta modalidad Io m6s importante es 
conseguir un ritmo adecuado y apro- 
vechar bien el impulso de los esquies. 
En los tramos cuesta arriba, debe- 
mos aumentar nuestra velocidad, 
mientras que si nos encontramos en 
una pendiente aumentaremos nues- 
tra velocidad de caida ayud6ndonos 
de los brazos. 
Para disparar a cualquiera de los 
blancos, debemos cotter el cerroio 
de nuestro fusil y apuntar. El cansan- 
cio del esquiador influye en su pun- 
teria y no debemos perder demasia- 
do tiempo apuntando. 
Winter Games es un programa 
que refleja fielmente Io que son los 
juegos de invierno: las siete pruebas 
que contiene son las m6s represen- 
tativas de esta competici6n y est6n 
reproducidas con verdadero realis- 
mo. 
Todas las prdebas se realizan a ba- 
se de joystick, sin tenet que utilizar 
teclas adicionales que complicarian 
el desarrollo de los ejercicios. 
Aunque existen gran variedad de 
movimientos en cada prueba, el do- 
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minio de las distintas t6cnicas no re- 
sulta complicado; con un poco de 
pr6ctica Ilega a ser intuitivo y permi- 
te todo el desarrollo de nuestras cua- 
lidades. 
La parte m6s destacable de este 
programa, sin duda, son el movi- 
miento y el dibujo de los gr6ficos. 
En Io referente al movimiento, 
te reproduce totalmente la t6cnica de 
cada competici6n; son de destacar la 
gracia y fiel reproducci6n de los mo- 
vimientos de esqui acrobtico, del 
salto de trampolin, las pruebas de 
patinaje artistico y el esqui de fondo. 
Francamente el movimiento est6 bien 
conseguido. 
En cuanto al dibujo de las distintas 
pantallas, 6ste est6 realizado con 
una t6cnica impresionista muy Iogra- 
da; la nieve se diria que va a salir por 
la pantalla, los bosques y montaas 
alpinas nos rodean en un paisaje 
propio de una postal. 
En definitiva, un programa de to- 
tal espiritu deportivo donde nuestra 
habilidad se pone a prueba en siete 
deportes distintos. 
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RAFICO$ 
DEFINIDOS 
POR EL USUARIO 

Esta semana centraremos nuestra atenci6n en la 

forma de definir nuestros propios caracteres 
gr6ficos, (gr6ficos definibles por el usuario), 
desde lenguaje m6quina. 

C 

mo todos sabe- 
mos, cada car6cter viene determina- 
do por 8 bytes, cada uno de los cua- 
les est6 formado par 8 bits. 
Estos Oltimos son ol-que indican los 
puntos que deben estar encendidos 
o apagados. Asi pues, cada car6c- 
ter estar6 formado por 64 puntos, 
cada uno de los cuales puede estar 
iluminado o na segOn si el bit est6 a 
loa0. 
Para dejar completamente aclara- 
do este punto, veamos c6mo defini- 
r/amos un car6cter grfico que re- 
presentara una cruz. 
Indicaremos a cantinuaci6n cada 
una de los 8 bytes que formar6n el 
gr6fica, en notaci6n binaria, decimal 
y hexadecimal. 
La primera de elias es la que nos 
darc una visi6n ms clara, del grfi- 
co que deseamos. 

Binario Decimal Hexa- 
decimal 

10000001 129 81 
01000010 66 42 
00100100 36 24 
00011000 24 18 
000 ! 1000 24 18 
00100100 36 24 
01000010 66 42 
10000001 129 81 

De esta forma para obtener dicho 
gr6fico, en el car6cter 255 por ejem- 
plo, desde Basic hariamos Io siguien- 
te: 
10 SYMBOL AFTER 254 
20 SYMBOL 
255,129,66,36,24,24,36,66,129 
24 ,/oHoeeY AMSTRAD 

Para realizar la misma operaci6n 
desde c6digo m6quina, deberemos 
efectuar una Ilamada al firmware, 
para indicar al sistema los caracte- 
res a definir, y qu posici6n de me- 
moria se desea utilizar para almace- 
narlos. 
Esta rutina es la siguiente: 
DEFINICION DE UNA TABLA DE CA. 
RACTERES. #BBAB 
Reserva un espacio para la creaci6n 
de caracteres gr6ficos. 
Condiciones de entrada. 
El registro doBle DE, debe conte- 
ner el primer car6cter de la tabla, y 

10 REM PROGRAIA CARGADOR$ 
20 FOR N-kAO00 TO kAOF3 
30 READ AzUMA-UMAA 
40 POKE N,A 
50 NEXT 
bO IF UMA<&7QQE THEN PRINT "ERROR 
EN DATAS" 
70 DATA 2,1205,14,18833,1 
80 DATA 134,20,Ib0,205,158,10 
90 DATA 205,92,10195,22I0,0 
100 DATA 0,205,24,187,4220I0 

110 DATA 125,254,14,40,18,205,80 
120 DATA 160,36,44,229,205,125,1b0 
130 DATA 
140 DATA 24227205,24187,4220 
15 DATA Ib,125,254240,21205 
10 DATA 80I0,3b,45229205,125 
170 DATA 10,225,34,20,160,205,92 
180 DATA I0,24227,124,5437,192 
190 DATA 38,1t229t05108,1875 
200 DATA 2014220Ib0229,205117 
210 DATA 187,b2,25125,90,187b2 
220 DATA 53,205,90,187,225,44,205 
230 DATA 117IS7,2,252,205?0,187 
240 DATA 2254205,90187201,42 
25g DATA 2Ib0229,205,117187,2 
2kO DATA 32205gOiB7a2,32205 
270 DATA 70,187,22544,205,117187 
280 DATA 
290 DATA 2590,18728117,251, 
300 DATA 
310 DATA 179Ia017211I0,1,32 
320 DATA 0237,17b20131531 
330 DATA 3127,127255,255,255,255 
348 DATA I7127b3,31,15,3;9 
350 DATA 240,248252,254,254255,25 
5 
360 DATA 55255,254,254,252248,24 
0 
370 DATA 
380 DATA 
390 DATA 
480 DATA 008,0,00,0 
410 DATA 

el registro HL debe contener la direc- 
ci6n de inicio de dicha tabla. 
Condiciones de salida. 
Si no se habia definido una tabla 
anteriormente, se obtiene: 
Carry falso 
Registros A y HL corrompidos. 
Si ya se habia definido una tabla 
anteriormente, nos devuelve: 
Carry a uno 
Contiene el primer car6cter de la 
anterior tabla. 
HL contiene la direcci6n de inicio 
de la antigua tabla. 
En cualquier caso, a la salida de 
esta rutina, se corrompen todos los 
flags y los registras BC y DE. Los 
m6s son preservados. 

C6mo definir un gr6f|co 
en lenguaje m6quina 

Veamos, una vez explicada c6mo 
funciona esta rutina, la forma en que 



definiriamos desde m6quina el ca- 
r6cter mencionado anteriormente. 
En primer lugar, deberemos car- 
gar en el registro doble DE, el c6di- 
go ASCII del primer car6cter a deft- 
nir. Como en nuestro caso es 255, 
cargaremos DE con dicho valor. 
LD DE,255 
A continuaci6n deberemos indicar 
en HL la direcci6n de memoria en la 
cual colocaremos los valores corres- 
pondientes a dicho car6cter. Esta di- 
recci6n puede ser cualquiera dentro 
del rango que nos permita el orde- 
nador, generalmente se deber6 uti- 
lizar una direcci6n alta, menor a 
42619. 
En este caso, podemos colocar la 
tabla en la direcci6n 40000. 
LD HL, 40000 
Hecho esto, ya s61o queda Ilamar 
a la rutina citada anteriormente: 
CALL #BBAB 
En estos momentos ya estamos en 

condiciones de colocar Io 
correspondientes a nuestro 
a partir de la direcci6n 413 
Io cual obtendremos nuestro gr'6fico 
cuando imprimamos en pantalla el 
car6cter 255. 
Para colocar los anteriores valores 
en esa direcci6n de memoria, utiliza- 
mos la siguiente rutina: 
LD HL, DATOS; direcci6n de 
los valores 
LD DE,40000 ; direcci6n 
donde se de- 
ben colocar 
LD BC,8 ; nOmero de 
datos 
LDIR ; efect0a la 
transferencia 
DATOS: DEFB 
129,66,36,24,24,36,66,129 

30 IF x=14 THEN GOTO 100 
40 IF y=37 THEN 
50 QQSUB 200 
70 80SUB 170 
8@ WHILE INKEY$="":WEND 
90 80TO 30 
100 IF =2 THEN OOTO 30 
II0 IF y-7 THEN 
120 GQSUB 200 
140 GOSUB 170 
150 WHILE INKEY$="":WEND 
laO GOTO lOO, 
170 LOCATE y:x:PRINT CHR$<251)IHR$ 
(253) 
180 LOCATE y(x+I):PRINT CHR$(252) 
l¢HR1(254) 
190 RETURN 
200 LOCATE yIPRINT CHR$<32);CHR$( 
210 LOCATE y=(+I):PRINT CHR$(32)| 
220 RETURN 
230 SYHBOL AFTER 250 
240 SYHEOL 251315313127127,2 
55255 
250 SYMBOL 252255255127=127&33 
260 SYMBOL 253192,24024B252,254 
254255255 
270 SYMBOL 254255255254254252 
248240192 
2BO RETURN 

Los progromos 

Vamos aver a continuaci6n el pro- 
grama que hemos preparado esta 
semana, pero antes deseo hacer al- 
gunas indicaciones para aquellos 
que sigan este curso en posteriores 
capitulos. 
En primer lugar, decir que en los 
programas realizados en c6digo m6- 
quina, se utilizar6n siempre que se 
pueda los mismos nombres para 
aquellas rutinas que realicen ind6n- 
ticas funciones, asi por eiemplo a las 
rutinas de impresi6n, se las Ilamar 
con el nombre <<PRINT. 
Otra de las mejoras que deseamos 

NICIALIZACION) 
DEFINIR 
CARACTERES 
GRAFICOS 
INCREMENTAR 
POSICION H Y 
DECREMENTAR 
LA VERT. 
INCREMENTAR 
POSICION 
HORIZONTAL 
VERTICAL 

introducir, es indicar mediante un 
diagrama de tluj, el funcionamien- 
to de los programas, para que de es- 
ta forma se vea m6s claro el mtodo 
de trabajo de cada una de las ruti- 
nas. 
Aclarado este punto, empezare- 
mos con la descripci6n de nuestro 
programa, en el cual se definen cua- 
tro caracteres gr6ficos que unidos 
orman un bola, y a continuaci6n se 
ia hace mover a travEs de la panta- 
Lo primero que debemos hacer es 
colocar la pantalla en el modo de 
trabaio deseado, en este caso modo 
1. Seguidamente se realiza la inicia- 
lizacin de variables. 
Daclo queen lenguaie m6quina te- 
nemos una cantidad limitada de re- 
gistros, para almacenar nuestras va- 
riables utilizaremos direcciones de 
memoria. 
Asi pues, cuando deseemos vet el 
valor de nuestras variables, debere- 
mos observar esas direcciones de 
memoria. Del mismo modo cuando 
se desee alterar su valor, ste se to- 
mar6 de la memoria, se moclificar6 
y a continuaci6n se volver6 a alma- 
cenar alli. 



Para hacer esto, se debe reservar 
un espacio de memoria, al cual le da- 
remos un nombre, para que sepa- 
mos en cualquier momento d6nde 
est6 almacenada nuestra variable. 
Esto se puede hacer de la siguien- 
te forma: 
LD A,50 
LD (VARI),A 
RET 
VARI: DEFS 1 
En esfe caso hemos reservado un 
espacio de memoria de un byte, en 
el cual hemos almacenado el valor 
50. 
Cuando se desee ver el contenido 
de esa direcci6n de memoria, Onica- 
mente debemos hacer Io siguiente: 
LD A,(VARI) 
Una vez hecha la inicializaci6n, se 
llama a la rufina que crea los carac- 
feres definidos, la cual se ha explica- 
do anteriormenfe. 
Seguidamente enframos en un bu- 
cle que se encarga de incrementar la 

I 
posici6n horizontal de la bola y de- 
crementar la vertical, hasta que se 
Ilegue a un valor determinado. 

Una vez alcanzado dicho valor, se 
envia el control del programa a otro 
bucle que se encarga de incremen- 
tar la posici6n horizontal y vertical de 
la bola hasta un cierto valor, alcan- 
zado 6ste, se envia el programa al 
bucle anterior. 

Las rutinas de impresi6n 
y borrado 

Por Oltimo, se encuentran las ruff- 
nas que se encargan de la impresi6n 
y borrado de la bola en pantalla. La 
primera de elias imprime la bola en 
la posici6n de pantalla indicada por 
la variable <<POSIC>>. La rutina de bo- 
rrado, se encarga de borrar la posi- 
ci6n anterior de la bola. 
Para que dicho borrado se efectOe 
correctamente, se deber6 Ilamar a 
esta rutina antes de actualizar la po- 
sici6n de la bola, y una vez efectua- 
do el borrado, se renuevan sus coor- 
denadas y se imprime en pantalla. 

Pass i errors: O0 

AOOO 

AO00 3E01 
AO05 210101 
AO08 214A0 
AOOB CDgEAO 
AOOE CDSCAO 
AOII C31AO 
A014 

A019 2AI4AO 
A01C 70 
A01D FEOS 
AOIF 2812 
A021 CD50AO 
A025 2C 
A027 CD7DAO 
AO2A £I 
A02B 2214A0 

A036 2AI4AO 
A039 70 
AO3A FE02 
AO3E CDSOAO 
A041 24 
A042 20 
A044 CD7DAO 
A047 El 
A048 2214A0 
A04B CD5AO 
AO4E 183 

A050 7C 
A051 F25 
A053 C0 
A054 201 
A056 E5 
A057 CD6BB 
AO5A El 
A05S C9 

I0 ORG #AO00 
20 ; 
30 ;INICIALIZACIDN 
40 l 
70 LD HL,fl0101 
80 LD (POSI),HL 
100 CALL PRINT 
120 POSIC: DEFS 2 
I0 | 
140 IDECREMENTA 
150 I 
160 DECRY: CALL #CB18 
170 LD HL(POSII 
180 LD 
190 CP 14 
200 R 
210 CALL MIRHCR 
230 INC L 
240 PUSH HL 
250 CALL BORRA 
280 CALL PRINT 
290 R 
300 I 
310 |INCREMENTA 
320 1 
330 INCRE: CALL 
340 LD HLPCSIC 
350 LD AL 
360 CP 
370 R ZDECRE 
80 CALL HIRHQR 
390 INC H 
400 DEC L 
410 PUSH HL 
420 CALL BORRA 
430 POP HL 
440 LD 
450 CALL PRINT 
40 R INCRE 
470 | 
480 tCOMPRUECA PQSICION HQRIZQNTAL 
490 ; 
500 HIRHQR: LD AH 
510 CP 37 
520 RET NZ 
530 LD HI 
540 PUSH HL 
550 CALL 
560 POP HL 
570 RET 

590 ;RUTINA DE IHPRESIQN 
• 00 ; 
A05C 2AI4AO 610 PRINT: LD HL,(PQSIC) 
AOSF E5 20 PUSH HL 
AQ60 CD758S 630 CALL #B875 
A063 3EFB 640 LD A251 
A065 CD5ABC 650 CALL #BB5A 
AOB 3EFD 660 LD A253 
AO6A CDSABC 670 CALL #CB5A 
A06D El 680 POP HL 
AO6E 2C 690 INC 
AO6F CD75BB 700 ALL #B875 
A072 3EF 710 LD A252 
A074 CDSABB 720 CALL #BBSA 
A077 3EFE 730 LD A254 
A079 D5ABB 740 CALL #BB5A 
A07C C? 750 RET 
760 ; 
770 ;RUTINA DE CORRADC 
780 1 
A07D 2AI4AO 790 BORRA: LD 
AOCO 5 800 PUSH HL 
A081 CD7588 810 CALL #BB75 
AOS4 3E20 820 LD A32 
A086 CD5ABC C30 CALL #BBSA 
AOC9 3E20 840 LD A,32 
A08B DSABB 850 CAL #CSSA 
AOSE El C60 POP HL 
AOCF 2C 870 INC L 
A090 C07588 8C0 CALL #B875 
AO?3 3E20 890 LD A,32 
A095 CDSABB 900 CALL #BBSA 
AO98 3E20 910 LD A32 
AOA CDSABB 920 ALL #BBSA 
AOD C? 930 RET 
94O I 
950 |REACION DE CARATERES 
AOK IIFBO0 970 UD8: LD DKt251 
AOAI 2103A0 980 LD HLTABLA 
AOA4 CDABCB 990 CALL 
AOA7 IBAg 1000 LD HLDATOS 
AOAA 11D3AO 1010 LD DTABLA 
AOAD 012000 1020 LD 
A080 EDBO 1030 LDIR 
A082 C9 1040 RET 
A083 030FIF3F 1050 DATOC: DEFB 315313127127255255 
AOBB FFFF7F7F 1060 DEFC 
AOC3 COFOFCFC 1070 DEFC 192240248252254254255255 
AOCB FFFFFEFE 1080 DEF8 255255254254252248240192 
AOD3 1090 TABLA: DEFS 32 
Pass 2 ecrce: O0 
BCRRA A07D DATOS A083 DECRE A016 
INCRE A033 MIRHOR A050 POSI¢ A014 
PRINT A05C TACLA AOD3 UDGS AO?E 
Table used: 121 from I000 
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Presenta: 

Inform  tica 

d l  piz al que gusta deck 
mientras nuestros competidores dicen no 
UNICO PARA AMSTRAD, CON PRECISION PIXEL 

FUNCIONES 

I ESP  OTROS 

-UNICO MENU DE PANTALLA SI 
ARRASTRE OB--JETOS PANTALLA  
TRASLADO OBJETOS PANTALLA SI NO 
--TRASLADO DE CURSOR NO 

$I 

CAJAS ELASTICAS I Sl SI 
LINEA ELASTICA SI SI 
TRIANGULO ELASTICO  NO 
ELIPSE ELASTICO . 
DIAMANTE ELASTICO Sl NO 
POLIGONO ELASTICO SI 
HEXAGONO ELASTICO NO 

$I 

OCTOGONO ELASTICO SI NO 
CUBO ELASTICO  
PIRAMIDE ELASTICA SI [ NO , 
CIRCUNFERENCIAS SI I Sl 
CIRCULOS RELLENOS Sl I NO 

CAJAS RELLENAS 
ELIPSES RELLENAS 
CUNAS 

SIMULADOR DE CORTES 
DISENO DE ZOOM 
_IMAGEN ESPEJO E INVERTIDA 

FONDO DE REFERENCIA 
REJILLA DE FONDO 
_OPCION DISPLAY X. Y 
RELLENADO CON COLOR 

LAVADO DE COLOR 
VOLCADO PANTALLA RIDENTE 

DIBUJO DE BORDES EN 3 D 
.._TEXTO 
9 TAMANOS DE BROCHA 
18 TOBERAS MOSTRADORAS 
4 MEZCLAS BASICAS 
--VARIADOR DE MEZCLAS 
SOMBRE.ADO DE MEZCLAS XOR 
FICHERO ICONOS RESIDENTES 
.FICHERO RELLENOS RESIDENTES 
26 COLORES DE PAPEL 
PALETA DE 15 TONOS DE COLOR 
POS1CIONAMIENTO DE PUNTO 

RAYOS DESDE UN PUNTO FIJO 

DIBUJO REFLEJADO (ESPEJO} 
FUNCION HOME 
CONTROL DESDE TECLADO 

CONTROL CON JOYSTICK 
__DISPONIBLES MODOS 1 Y 2 

SI I NO 
s I NO 
& O !  
SI 
SI NO-- ---- 
s, st-- _- ALGUNOS EJEMPLOS 
SI ! NO 
s, NO ° DE LOS GRAFICOS QUE VD. 
Sl I NO 
t s, I No  ,-, PODllA REALIZAR CON NUESTR  

SI I SI I , 
i s NO  
I SI NO o 

O 

SI 
SI NO I 
SI 

SI I SI 
I si NO ' 
I Sl I NOl 
SI ' NO 
SI I 
I S! NO I 
I st ? ! 

DEBIDO A LA FALTA DE ESPACIO NO PODEMOS LISTAR LAS OTRAS 
40 FUNCIONES MAS QUE NUESTRO LAPIZ ES CAPAZ DE HACER. , 
t, PONIBLE P,   
PC 464 CASSETT". ..................... ,., a ",,, 
¢'C 464..664 DISCO ...................... 6.900 ' ,: 
CPC 6128 DIS t'q ............................ 6.900 Ptas 
(IVA no incluido) 
CONDICIONES ESPECIALE. e.l,l: t STRIBUID0' 

DE VENTA EN LOS MEJORES COMERCIOS 
DE INFORMATICA 
," Vd. tiene alguna dificultad para obtener el htpiz 6ptico, 
,, ede didgirse a: 
Avda. Isabel I!, 16 -8  
Ofites e 455544-455533 
Inform,tica x 9s 
20011 S., SEBASTIAN 



LA SENTENCIA GOTO 
E, PAeA Clue? 

El GOTO, esa sentencia que nos permite ir de un 
lado a otro del programa tranquilamente, puede 
ser un arma de dos filos. Esto se debe a varias 
razones que ser6n expuestas a Io largo de este 
artlculo. 

Daniel Palomo Ortega 

l,ernighan y Rtchie, 
este 01timo es el creador del le .gua- 
ie C, le dedican, al GOTO, el si uien- 
te halago. ¢¢utilizar esta senten ia es 
abusar de ella,s; y hacen la sig iente 
sugerencia: 1o mejor es usarla can 
cuentagotas o no hacerlo nunca. 

GOTO NO, GRACIA$ 

La gente que se inici6 en la progra- 
maci6n con basic, casi todos, tienen 
tendencia a abusar de esta senten- 
cia mucho m6s de Io necesario. Aun- 
que los que utilizan fortran Io tienen 
mucho peor, ya queen este lengua- 
je el no utilizar esta sentencia es im- 
posible. Por esto se suele decir que 
el GOTO es la maldici6n del basic y 
fortran. Todo esto no quiere decir 
que no exista el GOTO en otros len- 
guajes pero si, que la utilizaci6n del 
mismo es bastante m6s compleja. En 
los lenguajes de alto nivel compila- 
dos no existen n6meros de linea. Pa- 
ra la utilizaci6n del GOTO en stos es 
necesario el poner una etiqueta, que 
es una identificaci6n puesta al prin- 
cipio de la linea a la cual se quiere 
bifurcar. Esto complica mucho m6s la 
utilizaci6n de esta sentencia. 
La versi6n basic de Amstrad es 
muy potente. Mucho m6s que la de 
otros intrpretes, ya que se le ha im- 
plementado algunas de las senten- 
cias de otros lenguajes m6s potentes 
y estructurados. Por ello nosotros po- 
demos prescindir, en la mayoria de 
las ocasiones, de la sentencia GOTO. 

28 //coeoY AMSTRAD 

LOS CONTRA$ DEL GOTO 

La primera oposici6n que encon- 
tramos al GOTO es que altera la se- 
cuencia lineal del programa, la Ins- 
trucci6n a la que accede m6s r6pido 
el ordenador, es por 16gica la si- 
guiente a la que acaba de ejecutar. 
Nosotros con un GOTO alteramos 
esa estructura secuencial que utiliza 
nuestro aparato. Ya que tiene que 
buscar la nueva instrucci6n y conti- 
nuar con la ejecuci6n del programa 
en ese punto. Esto aunque no Io pa- 
rezca, le cuesta bastante tiempo y 
trabajo a nuestro querido intrpre- 
te; ya que no es tan r6pido como 
creemos. 
Adem6s, un GOTO es muy raro 
que est solo en el programa, es de- 
cir, su utilizaci6n implica que en al- 
g6n lugar del mismo, vamos a tener 
que volver a utilizar esta sentencia, 
para restablecer de nuevo el flujo co- 
rrecto. Lo que provoca que tenga- 
mosque hacer una serie de cruces en 
el programa. 
La abundancia de esta sentencia 
influye en la legibilidad del progra- 
ma, ya que nos obliga air de un la- 
do a otro dificultando el que veamos 
claro Io que hace. Por Io que siesta 
instrucci6n es muy abundante, es 
muy probable que muy pronto nos 
cansemos de intentar entender ese 
programa. 
Posiblemente, si utilizamos mucho 
el GOTO, alguna vez nos encontre- 
mos con que nuestro programa no 
funciona correctamente, y no sepa- 
mos por qua. AI usar esta sentencia 
debemos saber muy bien d6nde bi- 
furcamos y no equivocar el n0mero 
de linea, y de estructurar muy bien 
dicha linea para que un posible error 
no nos Ileve mucho tiempo. 

El andar dando saltos alegremen- 
te por el programa NO E$ ACONSE- 
JABLE Y SE DEBE INTENTAR EVITAR 
porque: 
es lento, 
peligroso, 
y poco elegante 
Es muy f6cil el caer en la tentaci6n 
del GOTO, ya que es una gran co- 
modidad el poder ir directamente al 
punto del programa que deseamos; 
yes comprensible que el programa- 
dor novel guste de utilizar esta sen- 
tencia. Pero sta es inevitable y ade- 
m6s el suprimirlo nos ayudar6 mucho 
a desarrollar, mucho m6s, nuestra 
imaginaci6n programando, algo que 
bien merece un esfuerzo. 

COMO EWTARLO? 

Lo primero que debemos hacer a 
la hora de empezar un programa, es 
saber qu deseamos que haga, c6- 
mo Io va a realizar y si podemos ha- 
cerlo, esto 01timo depende mucho de 
nosotros. 
La mejor forma de planfearnos un 
programa, es dividirlo en m6dulos 
cortos, que realicen fareas muy con- 
crefas; esfo se llama esfructurar un 
programa. 
Cuando Basic se cre6, no se hizo 
con la infenci6n de que fuese un ien- 
guaje esfructurado, sino que se hizo 



como un lenguaje de prop6sito ge- 
neral, f6cil de aprender y como una 
aproximaci6n a la 16gica informti- 
ca, fue el lenguaie que le permitia a 
cualquier persona progra'mar un or- 
denador. Pero afortunadamente se 
le implant6 esta posibilidad, y pos- 
teriormente se mejor6, esto es posi- 
ble gracias al uso adecuado de las 
subrutinas. La mayoria de las veces 
los GOI'O': pueden ser sustituidos 
por subrutinas muy fccilmente, esto 
no rompe la estructura lineal del pro- 
grama, ya que al utilizar un progra- 
ma principal, su secuencialidad estg 
garantizada. Adem6s las equivoca- 
ciones que podamos tener son mu- 
cho m6s f6ciles de corregir, ya que 
podemos ejecutar cada m6dulo por 
separado y hacer las comprobacio- 
nes necesarias para su correcci6n. El 
uso adecuado de subrutinas es el pri- 
mer paso en la ¢darga carrera de 
evitar el GOTO. 
Veamos ahora algunos ejemplos 
prccticos de c6mo evitar el GOTO: 
1) Elecci6n entre dos alternativas: 
100 IF A< B THEN 
A=A+ l:J =A*4/3:GOTO 
120 
110 B=B+I:L=B*6/4 
120 ..... continOa... 
Esto es mucho m6s fccil de enten- 
der si Io expresamos utilizando ELSE. 
100 IF A<B THEN 

A--A+ 1:J=A*4/6 ELSE 
B=B+I:L=B*6/4 
110 .... contin0a... 
2) Utilizaci6n de un bucle indefinido: 
90 A=0 
100 PRINTPULSA ENTER PARA 
FINALIZAR 
110 INPUT <INTRODUCE EL 
NOMBRE, NOMS(A) 
120 INPUT <APELLI DO, 
APES(A) 
130 A=A+I 
140 IF NOMS > .... OR 
APES(A) < > .... THEN 100 
Utilizando la estructura WHI- 
LE/WEND Io podemos evitar muy 
elegantemente. 
90 A=0 
100 WHILE NOMS(A) > .... 
OR APES(A) > .... 
110 A=A+I 
120 PRINTPULSA ENTER PARA 
FINALIZAR 
130 INPUT INTRODUCE EL 
NOMBRE, NOMS(A) 
140 INPUT APELLI DO, 
APES(A) 
150 WEND 
3) Abandonar la ejecuci6n de un 
bucle FOR: 
10 FOR N=I TO 100 
20 IF N MOD 50=0 THEN 
GOTO 50 
30 ?N,N*2 
40 NEXT N 
50 ..... continOa... 
Se puede evitar haciendo la varia- 
ble de control del bucle igual al nO- 
mero mayor que acepta: 
10 FOR n=l TO 100 
20 IF n MOD 50--0 THEN 
n=101 
30 PRINT n,n*2 
40 NEXT 
50 ...... continOa... 
4) Manejar un menO de opciones: 
10 CLS:C = 0 
20 INPUT <OPCION,OP 
30 ON OP GOSUB 100, 200, 
3OO, 400 
40 IF C=4 THEN END 
50 GOTO 10 

100 PRINT <SUBRUTINA 
I:RETURN 
200 PRINT SUBRUTINA 
2:RETURN 
300 PRINTSUBRUTINA3: RE- 
TURN 
400 PRINT SUBRUTINA 4 FI- 
NALIZAb: RETURN 
De nuevo entra en acci6n el bucle 
WHILE/WEND. Aunque pueda pa- 
recer extrao el bucle WHILE es ca- 
paz de mantenerse despu6s de ha- 
her eiecutado una subrutina. 
10 CLS:c=0 
20 WHILE c--0 
30 IN PUTOPCION,OP 
40 ON OP GOBUS 100, 200, 
300, 400 
50 WEND 
60 END 
100 PRINT SUBRUTINA 
I:RETURN 
200 PRINT <SUBRUTINA 
2:RETURN 
300 PRINT SUBRUTINA 
3:RETURN 
400 PRINT SUBRUTINA 4 FI- 
NALIZAR:C = 1:RETURN 
) Esperar a que se pulse una tecla 
1000 PRINTPARA SEGUIR PUL- 
SAUNA TECLA 
1010 IF INKEYS='"'THEN 1010 
la potencia de un bucle WHILE es 
bastante como para resolver nuestro 
problema sin tener que recurrir a 
GOTO. 
1000PRINT <PARA SEGUIR PUL- 
SAUNA TECLA 
1010 WHILE 
I N KEYS = '"':WEND 
En algunas ocasiones no podremos 
evitarlo, eso no nos debe preocupar, 
ya que a basic le faltan bastantes de 
las 6rdenes de las que disponen otros 
lenguajes, para evitar la utilizaci6n 
de esta sentencia. Sobre todo para 
no liar mucho a la m6quina y al que 
se interese por vuestros programas. 
¥ si algOn dfa trabaigis con otro 
lenguaje que no acepte tan bien es- 
ta instrucci6n, agradecez a vuestro 
Amstrad el poseer un basic tan po- 
tente. 
coo AMSTRAD 29 



READ TODO $OBREDATA 

Ya vireos c6mo programas que no son 
eficaces a la hora de trabajar. 

resultaban ser tan rigidos que cuando 
querlamos carnbiar el valor de las 

variables debiamos reescribir Ineas 
completas. 

Jos ocurria cuando 
ufiliz6bamos sentencias LET para 
asignar vaJores a Jas variabJes, 
que vamos a infenfar ver otros sisfe- 
masque den a nuestros programas 
mayor flexibilidad. 
Empezaremos por ver el Progra- 
ma I. 

I Programa I 

Utilice nuestro familiar bucle 
FOR... NEXT, en 61, la variable de 
control <bucle)) que se incrementa en 
la misma cantidad a cada pasada, 
va a contener los valores sucesivos 
que queremos ir sumando en cada 
giro. Cuando acaba el programa, 
hacemos que la variable 
contenga el resultado de la ejecuci6n 
o suma de los valores de bu¢le). 
Y para demostrar su flexibilidad 
cambie la linea 30 par: 
30 FOR bucle=4 TO 16 STEP 4 

10 REM PROGRAMA I 
20 suma=O 
30 FOR bucle=l TO 3 
40 suma=suma+bucle 
50 NEXT bucle 
bO PRINT suma 

" iYa est6! A prop6sito, la linea 20, 
en el caso del Amstrad es redundan- 
re, pero algunos micros si no se es- 
pecifica el valor inicial interrumpen 
el programa y dan mensaje de error. 
Sin embargo, el programa no es 
todo Io flexible que deseamos por- 
que no siempre los variables deben 

tener un incremento (o decremento) 
fijo. De modo que vamos a utilizar 
otro sistema. 
En esta ocasi6n se trata de la sen- 
tencia INPUT. Su sistema de trabajo 
es el mismo que el anterior, pero se 
diferencia en que ahora el Amstrad 
espera que los valores le Ileguen des- 
de el teclado. V6alo con el Progra- 
ma II. 

Programa II 

La adaptabilidad es fant6stica, pe- 
ro tiene dos desventajas: una es que 
nos mantiene en el programa hasta 
que introducimos todos los datos y si 
son mil... 

10 REM PROGRAMA II 
20 suma=O 
30 FOR bucle=l TO 3 
40 INPUT "Numero? " 
50 suma=suma+numero 
bO NEXT bucle 
70 PRINT suma 

numero 

La otra es que debemos teclear to- 
dos los datos cada vez que ejecute- 
mos el programa, por Io que un 
error nos Ilevaria directamente hacia 
la vuelta a empezar) o al m6todo 
de la operaci6n aritm6tica mental. 
Hasta ahora ninguno de los tres 
sistemas (sentencia LET, bucle FOR... 
NEXT y comondo INPUT) nos ha 
proporcionado un programa que 
nos ofrezca la posibilidad de dar 
cualquier valor a los variables (den- 
fro del rango del micro), que sea fle- 
xible y que no necesitemos teclear 
nada durante su ejecuci6n. De 
do que vamos a probar otra cosa. 
Y vamos a hacerlo con el Progra- 
ma III, que no es muy diferente del 
anterior, pero tiene un par de lineas 
muy interesantes. 

Programa III J 

La primera es la linea 40 donde 
aparece la sentencia READ. Traba- 
ja igual que Input pero en vez de es- 
perar el valor desde el teclado, Io 
busca dentro del propio programa. 
La segunda novedad est6 en la li- 
nea 80 que comienza con la palabra 
clave DATA. Esta sentencia por si 
misma no hace nada, s61o sirve pa- 
ra contener los valores que READ va 
a leer y asignar alas variables co- 
rrespondientes, por si misma es com- 
pletamente inOtil. 
La mec6nica de trabajo es la si- 
guiente: READ provoca que el pro- 
grama busque una Iinea que comien- 
ce por DATA, lee un valor y Io alma- 
cena en la variable que sigue al co- 
mando READ. El micro se mantiene 

10 REM PROGRAMA III 
20 total=O 
30 FOR ciclo-1 TO 10 
40 READ tiaras 
50 total=total+clras 
60 NEXT ciclo 
70 PRINT total 
80 DATA 1253467 
90 DATA 3,b754,12 

al tanto del orden en la lista de da- 
tosy coda vez que obedece una ins- 
trucci6n READ toma el primero de los 
valores que todavia no ha utilizado. 
Habr6 observado que hay dos li- 
neas DATA. Es simplemente por co- 
modidad, asi evitamos errores huma- 
nos y no afecta para nada al micro. 
Cuando termina con todos los datos 
de una linea busca otra que empie- 
ce con DATA y procede de igual too- 
do. Habr6 observado, asimismo, 
que los datos van separados por co- 
mas y esto si que es muy importan- 
re. Funcionan como limitadores di- 
ciendo al Amstrad d6nde termina 
uno y comienza el siguiente. 
Si omitimos una coma convertimos 
dos dabs en uno solo, con Io que el 
micro se ver6 ante el dilema de en- 
contrar un nOmero de datos dado y 
con una Ifnea DATA que le propor- 
ciona ese nOmero menos uno, Io que 
le provoca una <¢riis .erviasa)) y 
parar el programa para darnos una 
disculpa: 
DATA exhausted in 40 
Pru6belo cambiando, por ejemplo, 
la linea 90 a: 
90 DATA 3,67,541,2 

30 /coHossY AMSTRAD 



Esto le demuestra que cuando el 
micro nos seale un error en una li- 
nea READ Io que debemos revisar es 
la linea DATA, que, por otro lado, 
es la m6s propicia para introducir 
errores. 
En el caso contrario, si ponemos 
una coma de m6s, el micro no nos 
dar6 mensaje de error, sino que to- 
mar6 el n0mero de datos que le he- 
mos indicado, ingnora el resto y ob- 
tendremos un resultado err6neo sin 
ser avisados. Pru6belo, cambie aho- 
ra a: 
90 DATA 3,6,7,54,1,2 
Y este problema puede complicar- 
se aOn m6s en un programa largo 
que utilice m6s de un READ, porque 
en ese caso el puntero qued6 sefia- 
lando al dato que no se utiliz6 y 
cuando entre en acci6n el READ si- 
guiente Io primero que leer6 ser6 
aquel dato anterior y todo los READs 
estar6n desplazados un valor. 
Un 01timo problema se nos presen- 
ta si tecleamos una coma al final de 
una linea DATA. Entonces el Ams- 
trad est6 esperando otro valor y co- 
mo no Io encuentra asume 0 por de- 
fecto. V6alo gr6ficamente colocando 

primeros 
repasos 

una coma detr6s del 7 de la linea 80; 
el bucle girar6 10 veces y no habr6 
sitio para el CHtimo 2 de la Iinea 90. 
Pot todo ello sea muy cuidadoso 
al teclear sentencias DATA en gene- 
ral y con las comas en particular. 
Finalmente debemos advertirle 
que no es necesario situar todos los 
DATAs juntos y al final del progra- 
ma. Lo hacemos por claridad, pero 
pueden distribuirse por todo 61, por- 
que el puntero de datos se mantiene 
al tanto de las cosas. Sin embargo, 
para programas cortos esta coloca- 
ci6n es un buen sistema; para pro- 
gramas largos y complicados es me- 
jor agruparlas en los lugares m6s 16- 
gicos: cerca de la subrutina que los 
utiliza, por ejemplo. 

! 
LE OFRECE AHORA $U$ 
PROGRAMA$ YA GRABAO0$, I 
PARA QUE VD. NO TENGA QUE i 
TECLEARLO$ , 
, 

Todos los programadores y aficionados a la microinform6tica 
sabemos Io/edioso y propenso a errores que resulta el teclear un 
listado de un programa. Para facilitar lu labor al m6ximo y que no 
tengas que estar horas sobre el teclado de tu ordenador tratando de 
descifrar incomprensibles mensajes de error, AMSTRAD SEMANAL 
te ofrece cada mes los programas publicados de los cuatro n0meros 
correspondientes en una cinta de cassette, s61o por 756 ptas. 

(sin rnds gastos por env/o). 
odos /as prograrnas de nuestras dntas se encuentran 
desprotegidos, con el ob/elo de facil#ar su copia en disco y 
la revisi6n de las listados. 

Envianos con Ja menor demora 
posible, el cup6n 
correspondiente. 

Cinta  

CAllA I 
EL h,b O 
"Solo 664 y 6 21 



i estc  s en tu sano vicio 

stas son tus revistas 

AMSTRAD 

Una revista de.. . 
vanguardia, clin6mca, 
rigida a todos acl uell°s 
d" _ "'-n son los 
que su paso 
ordenadores Amstrad. 
Cada semana peclueOs 
ucos Y claves clue te 
tr --;.., a sacarle el 
amuxaium'"partido a tu 
ordenador. 
embS, puedes ganar 
aasdta 100.000 pesetas al 
enviarnoS un programa 
realizado par ti. 

MICROHOBBY 
SEMANAL 

• ienes un Spectrum, 
S,,ti e encontrar toda 
sltima? ,,v CEMANAL 
MIC.RoHO_B;, a todos 
te la pro.pu_''u"os , 
los mart._ o tilidades, 
nrograma:' "_- 
Una p.ut,cu,_.:.,[ de los 
ordellauu. 

MICROMANIA 

HOBBYPRES$ 
Para genie inquieta. 



Mercc  cl.o 
comun 

Con el objeto de fomentar las rela- 
ciones entre los usuarios de AMSTRAD, 
MERCADO COMUN te ofrece sus p6gi- 
nas para publicar los pequeos anuncios 
que relacionados con el ordenador y su 
mundo se ajusten al formato indicado a 
continuaci6n. 
En MERCADO COMUN tienen cabida, 
anuncios de ventas, compras, clubs de 
usuarios de AMSTRAD, programadores, 
yen general cualquier clase de anuncio 
que pueda servir de utilidad a nuestros 
lectores. 
Envianos tu anuncio mecanografiado 
a: HOBBY PRESS, S.A. 
AMSTRAD SEMANAL. 
Apartado de correos 54.062 
28080 MADRID 
iABSTENERSE PIRATAS! 

Vendo mini 6rgano & calculadora 
CASIO VI-tone. Operaciones matem6ticas 
bsicas, diez ritmos, cinco instrumentos y la 
opci6n sintetizador. Pantalla y altavoz 
incorporados. Funda protectora, 
instrucciones en castellano y recambio de 
pilas. A estrenar, por solamente 3.000 
ptas. Interesados Ilamar al (988) 74 41 38 
y preguntar por Dani. 

Vendo Amstrad PCW 8256, en 
garantia, comprado en febrero 86, o 
cambio por Amstrad CPC 128, en 
perfecto estado, abon6ndome diferencia a 
convenir. Interesados escribir a: Luis L6pez 
Burgueo. Gral. Vives Camino, 3C-2. ° A. 
19004. Guadalaiara. 

Desearia contactar con usuarios del 
Amstrad CPC 464 para intercambio de 
programas de todo tipo, informaci6n, 
ideas, etc. Escribir a: Francisco L6pez 
Pernas. Rep0blica Argentina, 5, 7. ° C. 
Castro Urdiales (Santander). Tel. 
(942) 86 22 95. 

DeseaHa cambiar programas de todo 
lipo con usuarios de Amstrad CPC 
464/664/6128. Inieresados escribir a: Jos 
Luis Parra Bravo. Daoiz, 6o2-12. 29014. 
M61aga. 

Vendo ordenador Amstrad CPC 664, 
monitor color, con programas originales, 
ms diversos juegos y programas de 
utilidad. Precio todo incluido: 95.000 ptas. 
Jos6 Fernandez Montalb6n. Avda. de 
Roma, 19, 3-3. 08029. Barcelona. Tels. 
(93) 323 02 04 y 317 41 20. 

PEQUEIIA ERRATA 
EN DBASEI 

Los que hay6is tecleado el pro- 
grama DBASEI habr6is tenido la 
desagradable sorpresa de que a 
partir de 10 fichas el programa da 
error por matriz no dimensiona- 
da. 
No os asust6is pues no v6is a te- 
ner que teclearlo de nuevo ente- 
ro. 
El error, como quiz6 muchos de 
vosotros habr6is notado, es culpa 
de una simple vocal: 
EN LA LINEA 480 DONDE 
PONE COMPOS DEBE PONER 
CAMPOS 
EN LA LINEA 660 SUSTITUIR 
ROGIS POR REGIS 
EN LA LINEA 1270 DONDE 
PONE OCMES DEBE PONER 
ACMES 
Y esto es todo. Introduciendo es- 
tas modificaciones el programa 
funcionar6 perfectamente. La- 
mentamos el sofoc6m) que os ha- 
yan podido ocasionar estas erra- 
tas. 

Vendo Amstrad CPC 464 color, 20 
juegos y utilidades (Knight Lore, Alien 8, 
Harrier attack, Roland on the ropes, 
Ensamblador, Desensamblador, 
• copiones...). Comprado 24-6-1985. 
Perfecto estado. Precio a convenir. Jos6 R. 
Muoz. Rio Mio, 13, 3. o izda. Teruel. (De 
7 de la tarde en adelante). Tel. 
(974) 60 55 64. 

//R£CttP£R  q 
LAS ASIGNATURAS PENDIENTES .I 
• SOCIALES • NATURALES • MATEMATICAS • LENGUAJE • 
DE.. 5" 6 m 7mv 8" EGB 

Programa 
Programa 
Programa 
ponible en 

para ejercicios de ortografia .E.D.O__R_T.O. 
para ejercicios de atencibn y comprensibn _ED_A.C.L.E. 
para ejercitar el instrumento lector .E..J.E_I.L.E. 

MSX y AMSTRAD.. 1800 ptas Cassette_ )750 Disco 

((PRECIO ESPECIAL ) CURSO COMPLETO EGB ..... 3500 ptas. 
I PEDIDOS :GOSLJNE CUARTELES,43-1°-29002-MALAGA-TEL.31I877,J 
, . ..... regalo de un reloj por cada cassette o disco ,, 



induda 
alguna 
tende resolver, en la medida de Io 
posible, todas las posibles dudas 
que atormentea) a todas los 
personas interesadas en el mundo 
del AMSTRAD, sean o no poseedo- 
res de uno y, si to son, se encuen- 
tren en cualquier nivel de destreza 
en su manejo. 
Semanalmente, aparecen en estas 
p6ginas las consultas de la mayor 
cant/dad de usuarios posible; ella re- 
dundar6 en un mejor servicio yen 
un contacto m6s estrecho entre to- 
dos nosotros a trav6s de la revista. 
SIN DUDA ALGUNA est6 
abierta a todos. 

EL uRATAS 
DEL DESIERTO  ) 
A DISCO 

He comprado la cinta n. o 2 de/ue- 
gas de estrategia ¢¢Ratas del desier- 
to, poseo un CPC 6128 Amstrad, Io 
he pasado al disco, pero desde 6ste 
no me funciona, les acompaflo lista- 
do para que me indiquen, si puede 
ser, qu6instrucci6n debo cambiarle 
para que funcione con el disco. 
Les aseguro que no se trata de nin- 
g6n tipo de p/rater/a, s61o que al 
disponer de disco es m6s r6pido y 
m6s c6modo. Les ruego me contes- 
ten, tanto si me Io pueden decir co- 
ma si no. 

Amaro Alcaide 

El programa ((Ratas del desierto)), 
carga los Oltimos bloques binarios a 
trav6s de un cargador en c6digo m6- 
quina, par Io que 6ste est6 prepara- 
do para cargar desde cassette. Asi 
pues, la On/ca forma de conseguir 
que cargue desde disco, es de corre- 
gir dicho cargador de c6digo mqui- 
no. 

LOS RSX IDISC 
Y ITAPE 
Quiero felic#aros par vuestra- 
nuestra revista y preguntaros Io 
guiente: 
1. o Poseo un CPC 6128, quisiera 
saber 2lor qu a! hacer un RUN .... 
de un programa binario desde dis- 
co, clue a su vez "argue un segundo 
programa tambien en binario desde 
disco, el ordenador me p/de este se- 
gundo programa a tray, s del casset- 
te y no del d'sca . (La rutina para car- 
gar el segundo programa es la pu- 
hi/coda e el n. o 25.) 
2. ° C6mo se puede evitar este 
cambio de disco a cassette., porque 
Io que yo hago es utilizar un progra- 
md A$1C que argue el primer pro- 
gro ma binario y despus un CII a 
la direcci6n inicial, y ,e esta mane- 
ra el segundo programa Io p/de del 
disco, 2hay otto, ,rocedimiento. 
3. ° C6mo se puede simular el 
efecto de ID15¢ y I[P en c6digo de 
mquina? 
Quisiera tambin que me publi- 
quis el siguiente anuncio: 
8USCO un manual de la impreso- 
ra CENTRONICS 730-2, la 733-2 o 
similar. Pagarfa fotocopias y gastos 
de envio. Tel. (91) 445 10 02, tardes 
o bien par carta a Juan Carlos Pla- 
za. C/Alberto Aguilera, 16. 28015 
Madrid. 
Juan Carlos Plaza 

La rutina publicada en el n. ° 25 de 
MICROHOBBY AMSTRAD, est6 pre- 
parada para funcionar tanto en dis- 
co coma en cassette, y que funcione 
en una farina u otra s61o depende 
del s/sterna que est6 elegido en este 
momenta. 
Para que funcione correctamente 
utilizando el disco, Onicamente debe- 
r6s escribir la siguiente arden Basic 
antes de Ilamar a la rut/ha: 
IDISC 
La simulaci6n de los dos sentencias 
mencionada en tu carta desde c6di- 
go m6quina, no son posibles median- 
te Ilamadas directas, aunque una 
forma de conseguirlo es Ilamar direc- 
tamente a la ROM del disco o del 
cassette. 

BLOQUES PERDIDOS 
iHola! Soy un orgulloso propAeta- 
rio de un CPC 472. Mi problema es 
el siguiente: 

Ten/a grabado un programa de 
vuestra revist . Un d/a al cargar/o 
me confund[ y puls REC y PLA Y a /a 
vez. Se me han borrado los dos pri- 
meros bloques y, coma es normal, no 
puedo sacar la informaci6n de los 
restantes. No habna alguna forma 
de copiar ]os dos primeros y unirlos 
a los otros sin necesidad de tener que 
copiar el programa de nuevo. O, 
no hay otra forma de sacar la infor- 
maci6n de los que a6n c ,nservo? 
Javier Martin 

Dado que se ha perdido el primer" 
bloque de programa, no existe nin- 
guna farina desde Basic con la que 
puedas conseguir el resultado que 
has propones, par Io que te reco- 
mendamos que en poster/ores oca- 
s/ones rompas la patilla de las cintas 
en las que tengas grabado alga im- 
portante para que no vuelva a suce- 
derte Io mismo que en esta ocasi6n. 

UTILIZACION 
DE CARACTERES 
Y EL PROGRAMA 
uBIBLIOTECH)) 
Soy principiante de un CPC-464. 
Les rogar[a me indicasen, Io antes 
posible: 
1. o C6mo se saca el signo .. 
2. o Me pueden transcribir las If- 
neas. 
1560 
1580 
1585 
del programa BIBLIOTECH, de su 
n. o 24, pues estan casi borradas. 
Un saludo. 
Fernando GonzSlez y Serrano (Ja6n) 
Para poder utilizar este car6cter 
coma cualquier otro bastar6 que ha- 
gas Io siguiente: 
key 1, "chrS(160)" 
Siendo 160 el c6digo ASCII del ca- 
r6cter que quieres utilizar en este ca- 
so, pero si quisieras utilizar otro ten- 
drias tan s61o que mad/f/car el c6di- 
go ASCII que se encuentra en el ma- 
nual del ordenador. 
Las lineas del programa <Biblio- 
tech son 6stas: 
1560 for k=O to 1500:next:locate 
5,23:print .... :return 
1580 window#l,4,79,8,21: return 
1580 window 42,5,77,15,21 :cls#2: 
locate 43,23:print "<espacio> . 
<del> fin":locate 27,13 print" 
< < <temas> > >" 
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Apartado de Correos N. ° 232 
ALCOBENDAS 
(Madrid) 

N.°2 

LUGAR 
DESTINADO 
PARA 
EL SELLO 

", E$O " 'b " ,¢ - 
OMO E " '1 
MEJO; E jr  

ATEN(IO " NUE TR * 
FABUL050 (0 CUR$O: 
PUEDE$ GANAR U 
CPC.6128 CON 
SOLO CARGAR LA CINTA 

"luyen tambidn dos 
uno, de disefio grfi- 
tallas, para artistas, 
irfi ganar basra 
;eras en premios. En 
regalamos un orde- 
strad CPC6128. 
, 2 de AMSTRAD 
,taun amplio cspcc- 
resall[CS tcmas, co- 
qara/ivo de impre- 
lc ayudarfi a elegir 
la mis adecuada a sus llCCCsi- 
dades, como multitud de pro- 
gramas y rutinas de utilidad cn 
lcnguajc miquina como un pa- 
quete de soft integrado, con 
ires programas CI1 tlIlO y till lar- 
go etctera quc seria demasia- 
clo prolijo dctallar. 
Si no Io encuentras en tu kiosco, 
solicitalo directamente 
a nuestra Editorial. 



I  jn 
A trav6s d 
tende resotver, 
posible, todas 

Solicitud de cintas y n. atrasados 

[] Deseo recibir en mi domicilio los siguientes nOmeros atrasados de Microhobby 
Amstrad al precio de 160 ptas. cada uno 
El n0mero 4 est6 agotado. 
[] Deseo recibir la(s) cinta(s) de programas ,clue indico a continuaci6n. Cada una de 
estas cintas Ileva grabados los programas pubhcados par Microhobby Amstrad durante 
cuotro n0meros consecutivos (1 al 4, 5 ol 8, 9 al 12, etc.) y su precio es de 756 ptos. [IVA incluido). 
Nmeros del ol (Inclusive) NOmeros del ol (inclusive) 
Nmeros del ol [inclusive) NOmeros del ol (inclusivel 
NOmeros del ol [indusive) NOmeros del ol (inclusivel 
NOMBRE Fecho de nacimiento 
APELLIDOS Dam/alia 

que atorme 
personas intere 
del AMSTRAD, 
res de uno y, si 
tren en cualqui 
en su manejo. 
Semanalmenh 
p6ginas las car 
cant/dad de usu< 
dundar6 en un mejor servicio yen 
un contacto m6s estrecho entre to- 
dos nosotros a troves de la revista. 
SIN DUDA ALGUNA est6 
abierta a todos. 

EL RATAS 
DEL DESIERTO 
A DISCO 

He comprado la cinta n. o 2 de jue- 
gas de estrategia ¢¢Ratas del desier- 
to;, poseo un CPC 6128 Amstrad, Io 
he pasado al disco, pero desde ste 
na me funciona, les acompaflo lista- 
do para que me indiquen, si puede 
ser, quginstrucci6n debo cambiarle 
para que funcione can el disco. 
Les aseguro que no se trata de nin- 
gn tipo de plraterla, s61o que al 
disponer de disco es ms rdpido y 
rods c6modo. Les ruego me contes- 
ten, tanto si me Io pueden decir co- 
ma si no. 

LOCALIDAD 
C. POSTAL TELEFONO 
Fres suscriplor de Microhobby Amstr¢]? 
Marco con una (x} en el casillero correspondienle la [orma de go que ms me cony/e- 
lie. 
[] Tarjeta de crY/to n. ° 
[] Visa 13 American Express [] Master Charge 
Fecha de caducidad de la tarjeta 
[] Tol6n bancorio a hombre de HOBBY PRESS, S.A. 
[] Giro Poslal a hombre de HOBBY PRESS, S. A., N. ° del giro 
[] Conlra reembolsa (s61o ra nOmeros atrasados, supone 75 pesetas de gaslos de envio). 

Amaro Alcaide 

El programa ((Ratas del desierto)), 
carga los Oltimos bloques binarios a 
tray,s de un cargador en c6digo m6- 
quina, par Io que 6ste est6 prepara- 
do para cargar desde cassette. Asi 
pues, la On/ca farina de conseguir 
que cargue desde disco, es de corre- 
gir dicho cargador de c6digo m6qui- 
no. 

etecto de I¢11(, y IIAPq: en codigo de 
mdquina? 
Ouisiera tambien que me pub/i- 
quis el siguiente anuncio: 
BUSCO un manual de la impreso- 
ra CENTRONICS 730-2, la 733-2 o 
similar. PagaHa fotocopias y gastos 
de envfo. Tel. (91) 445 10 02, tardes 
o bien par carta a Juan Carlos Pla- 
za. C/Alberto Aguilera, 16. 28015 
Madrid. 
Juan Carlos Plaza 

La rutina publicada en el n. ° 25 de 
MICROHOBBY AMSTRAD, est6 pre- 
parada para funcionar tanto en dis- 
co coma en cassette, y que funcione 
en una farina u otra s61o depende 
del s/sterna que est elegido en este 
momenta. 
Para que tune/one correctamente 
utilizando el disco, Onicamente debe- 
r6s escribir la siguiente arden Basic 
antes de Ilamar a la rut/ha: 
IDISC 
La simulaci6n de los dos sentencias 
mencionada en tu carta desde c6di- 
go m6quina, no son posibles median- 
te Ilamadas directas, aunque una 
farina de conseguirlo es Ilamar direc- 
tamente a la ROM del disco o del 
cassette. 

BLOQUES PERDIDOS 
iHola/ Soy un orgulloso propAeta- 
rio de un CPC 472. Mi problema es 
el siguiente: 

PROVINCIA 
PROFESION 

Fecha y firrno 

UTILIZACION 
DE CARACTERES 
Y EL PROGRAMA 
(BIBLIOTECH)) 
Soy principiante de un CPC-464. 
Les rogarfa me indicasen, Io antes 
posible: 
1. o 4C6mo se saca el signo ;? 
2. o 4Me pueden transcribir las ff- 
neas? 
1560 
7580 
1585 
del programa BIBLIOTECH, de su 
n. o 24, pues estdn casi borradas? 
Un saludo. 
Fernando Gonzdlez y Serrano (Jan) 
Para poder utilizar este car6cter 
coma cualquier otro bastar6 que ha- 
gas Io siguiente: 
key 1, "chrS(160)" 
Siendo 160 el c6digo ASCII del ca- 
r6cter que quieres utilizar en este ca- 
so, pero si quisieras utilizar otro ten- 
drias tan s61o que mad/f/car el c6di- 
go ASCII que se encuentra en el ma- 
nual del ordenador. 
Las lineas del programa <<Biblio- 
tech> son 6stas: 
1560 for k = 0 to 1500:next:locate 
5,23:print .... :return 
1580 window#l,4,79,8,21: return 
1580 window #2,5,77,15,21 :cls#2: 
locate 43,23:print "<espacio> . 
<del> fin":locate 27,13 print" 
< < <temas> > >" 
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En tu kiosco te espera 

algo muy inteligente 

El AMSTRAD Especial llL'lll]e- 
ro 2 incluye una cinta de cas- 
sette adherida a la portada con 
un lenguaje Lisp cornpleto quc 

te permiti, comprender y do- 
minar las tecnicas mils comple- 
jas de intcligencia artificial. 
Pot si fuera poco, en nuestra 

'. :t '. 'dJ 3 

AgOI' N.°2 

r 

+ ;¢-£ . ; t O;tJb'dJt .,; +' " J; 

0,, 0 ;t "1 
M   eLIjI 

ATENCIO " NUE. "0 
FABULOSO CO CUR *: 
PUEDE$ GANAR UN 
CPC.6128 CON 
SOLO CARGAR LA CINT.4 

cinta se incluyen tambian dos 
COllCursos: UllO, de discfio gr4- 
rico de pantallas, para artistas, 
te permitir ganar hasta 
170.000 pesetas en premios. En 
el segundo regalamos un orde- 
nador Amstrad CPC6128. 
El m'maero 2 de AMSTRAD 
Especial trata un amplio espec- 
tro de interesantes tcmas, co- 
mo un comparativo de impre- 
sofas, que le ayudarfi a elegir 
la ms adecuada a sus necesi- 
dades, como muhitud de pro- 
gramas y rutinas de utilidad en 
lcnguaje mfiquina como un pa- 
quete de soft integrado, con 
Ires programas cn uno y un lar- 
go ctcdtera quc ser/a dcmasia- 
do prolijo dctallar. 
Si no Io encuentras en tu kiosco, 
solicitalo directamente 
a nuestra Editorial. 



paga uno y Ilevate cuatro 

AMSTRAD 

COMBAT LINX 
GREMLINS 
DUMMY RUM 
DRAGONTORC 
MATCH DAY 
BASEBALL 
FIGHTING WARRIOR 
MAP GAME 
YIE AR KUNG-FU 
HYPERSPORTS 
ZORRO 
SUPERTEST 
PING-PONG 

COMMODORE MSX BRUCE LEE COSMIC WARTOAD 
BASEBALL DISC WARRIOR RAID OVER MOSCOW N.O.M.A.D. 
DROPZONE JET SET WILLY II BASEBALL BATFLE OF PLANETS 
BEACH HEAD SHOW JUMPER DRAGONTORC DYNAMITE DAN 
HYPERSPORTS ASTROCLONE LEYENDA AMAZONAS 
SUPER ZAXXON GYROSCOPE BRIAN BLOODAXE 
FIGHTING WARRIOR SPECtlIUM MAP GAME PSYTRAXX 
SPY HUNTER ZAXXON ZORRO 
TAPPER FRANKIE 
BC-II BLUE MAX 
BOUNTY BOB 
POLE POSITION 

ptas. 

S OM OS PRO ESIONA L . S 

BRAVO MURILLO, 2 DIEGO DE LEON, 26 AV. FEUPE II, 12 
(Glorietz de Que',mdo) (Ezq. Ntkez de Bdzoa) (Metre Goya) 
Td. 4466231 • 28015 MADRID Tel. 261 8801 - 28006 MADRID Tel. 431 3233. 28009 MADRID 
Apareamimto GRATUITO Magellanes, 1 Aiurcamiento GRATUITO NC,ez de Balboa, 114 Aparcamiemo GRATUITO Av. Felipe II 



